JOHNNIAC LIBRARY LISTING 



SEPT. 1959 



-0103B.E 
J104BtE 
J105B.E 
J106B»E 
J112A 
J116B»E 
J120B.E 
J122A 
J123A 
J124B 
J126B*E 
J127B.E 
J129B,E 
J130B.E 
J131B.E 
J132B,E 
J133B»E 

•J135A 
J136A 
J137B.E 
J138B,E 
J140A 
J142E 
J148E 
U149B,E 

'jlSlBfE 
J153A 
J154B.E 
J156B,E 
J159E 
J160E 
J161E 
J162E 
J163E 
J164E 
J165E 
J166E 
J167E 

J178E 
J180A 
J181E 
J182E 
J185E 

J186E 
J188B»E 
J189B,E 
J190E 
^JPOIR.E 



ABSOLUTE — 

ROUTINE 

ABSOLUTE 



11 PER CARD 



22 PER CARD 



CHARACTERS • 
VARIABLE FORMAT 
FIXED FORMAT ONE/CARD 



PUNCH STYLE B» 
BLOCK TRANSFER 
PUNCH STYLE D, 
SQUARE ROOT 
LOAD STYLE D CARDS 
LOG-BASE TWO 

BLOCK TRANSFER TO AND FROM DRUM 
LOAD STYLE B CARDS - LOW 
LOAD STYLE B CARDS - HIGH 

EIGENVALUES AND EIGENVECTORS OF A REAL STMMETRIC MATRIX 
SOLUTION OF A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS 
ARCTANGENT X 
CARD IMAGE TO 
DECIMAL INPUT 
DECIMAL INPUT 
PRESET OR RESET ROUTINE 
PSEUDO B-BOX 

LOADER FOR STYLE F ABSOLUTE BINARY CARDS 
LOADER FOR STYLE E 
MANIPULATION OF ARRAYS 
MULTIPLICATION OF ARRAYS 
CLEAR H.S.S. TO ZERO 
PUNCH STYLE F BINARY CARDS 
PUNCH STYLE F WITH I.D. 

BLOCK TRANSFER TO AND FROM DRUM WITH TALLY 
SIN Y. COS Y, SIN 2Y, COS 2Y 
CLEAR H.S«5. TO PRESCRIBED WORD 
SIN PI Y» COS PI Y 
INTEGRAL ROOT Xl/P 

INVERSE INTERPOLATlONt A REAL ROOT OF F(X)=0 
CARD TO MOUSE MATRIX 

CARD TO MOUSE MATRIX WITH INTERMEDIATE COMPUTATION 
MOUSE MATRIX TO H.S.S.; 

MATRIX 
PUNCH 

WITH INTERMEDIATE COMPUTATION 

AND ECHO CHECK 

AND ECHO CHECK WITH 



H.S.S 
MOUSE 
MOUSE 
MOUSE 
MOUSE 



TO 

TO 
TO 



PUNCH 
PUNCH 
PUNCH 



APPROXIMATION -.- 
WITH BLOCK CHECK 
BLOCK CHECK SUMS 
BLOCK CHECK SUMS 



INTERMEDIATE 

FL. POINT 

SUMS 



TO MOUSE 
MATRIX TO 
MATRIX 
MATRIX 
MATRIX 

COMPUTATION 

LEAST SQUARES POLYNOMIAL 

LOADER FOR STYLE F CARDS 

PUNCH STYLE F CARDS WITH 

PUNCH STYLE F CARDS WITH BLOCK CHECK SUMS AND I.D. 

INTEGRATION OF N SIMULTANEOUS SECOND ORDER DIFFERENTIAL 

EQUATIONS WITH INITIAL CONDITIONS SPECIFIED 

FIXED POINT SQUARE ROOT WITH TROUBLE PRECISION ARGUMENT 

K TO THE X 

INTERPRET T-SWITCHES 

LOG - BASE E OR 10 

PUNCH DECIMAL CARDS: 



J202A 

J203E 

^!207A 

J20&A 

J209E 

J213A 

J214E 

J215E 

J216A 

J217A 

J218A 

J219A 

J223E 

J224A 

J225E 

J226E 

J227E 

J228A 

J230A 

J232A ■ 

J233E 

J234A 

J235E 

J238E 

J241E 

-J242E 

243E 

_/244E 

J246E 

J247E 

J248E 

J249E 

J250E 

J253E 

J254E 

J255B.E 

J256B.E 

J257B»E 

J258B»E 

J259B,E 

J260B.E 

J261B,E 

J262B»E 

J263B»E 

J264A 

J265B.E 
J266B.E 
J267A 
J268E 
J269E 
-'-270E 
"I71E 



DUMP MEMORY TO DRUM 

INPUT ADDRESSABLE FLOATING-POINT DATA 
AUTOMATIC POLYNOMIAL FUNCTION EVALUATION - 
AUTOMATIC COMPUTATION OF THE SOLUTION OF A 
AX=Bf WHERE A IS N X N AND NON-SINGULAR — 
PUNCH STYLE E 
CHANGE ADDRESS FIELDS 
NATURAL LOGARITHM 

10 PT* GAUSSIAN INTEGRATION — FLOATING POINT 
JOHNNIAC MUSIC 
STYLE D LOWER LOADER 
STYLE D UPPER LOADER 
STYLE D CHECK SUM CORRECTOR 

PRINT DECIMAL NUMBERS - UNIFORM FORMAT AND SCALING 
SYMBOLIC-RELATIVE ASSEMBLY WITH DRUM 
.MOUSE MATRIX TO PRINTER ALPHANUMERIC 
PRINT DECIMAL NUMBERS. DECIMAL FORMAT AND SCALING 
MESSAGE PRINTER 

OCTAL MEMORY DUMP - 4 PER LINE 
OCTAL MEMORY DUMP W/0 DRUM 

INSERT-BLOCK CHECK SUMS INTO STYLE F DECK • 
DECIMAL PRINT ROUTINE 
OCTAL MEMORY DUMP 
PRINT POSITIVE DECIMAL INTEGERS 
PRINT DECIMAL - ONE PER LINE 
ADDRESSABLE INPUT - FLOATING PT 
INPUT DATA CARDS - FLOATING PT 
PUNCH DATA CARDS - FLOATING PT 
PRINT AND TRACE - FLOATING PT 
SINE-COSINE - FLOATING' PT 

PT 

PT 

PT 

SYSTEM 
1 



FL. PT. 

MATRIX EQUATION 

FLOATING POINT 



ARC TANGENT - FLOATING 
EXPONENTIAL - FLOATING 
LOGARITHM - FLOATING 
INDEXING - FLOATING PT 
FIXED POINT SQUARE ROOT 



P-TH ROOT, P IN THE RANGE FROM 1 TO 39 

CAT READ ROUTINE 

CAT READ COMPILER 

CAT BCD FROM IMAGE 

CAT OUTPUT ROUTINE 

CAT ALPHANUMERIC PRINT 

CAT DECIMAL PRINT 

CAT PUNCH 

CAT MOVE IMAGE 

CAT SELECTIVELY CLEAR IMAGE 

AUTOMATIC LEAST SQUARES POLYNOMIAL APPROXIMATION — FLOATING 

POINT 

ADDRESSABLE DECIMAL INPUT 

120 COLUMN VARIABLE FORMAT DECIMAL PRINT 

STYLE E LOADER 

ZEROS OF A POLYNOMIAL WITH COMPLEX COEFFICIENTS - FLOATING PT 

COMPLEX MULTIPLY - FLOATING PT 

COMPLEX DIVIDE - FLOATING PT 

SCALAR PRODUCT OF TWO VECTORS - FLOATING PT 



J272E SUM OF THE COMPONENTS OF A VECTOR - FLOATING PT 

-J273E LINEAR COMBINATION OF TWO VECTORS - FLOATING PT 

;J274E POLYNOMIAL FUNCTION EVALUATION - FLOATING PT 

<J275E ITERATED SYNTHETIC DIVISION - FLOATING PT 

J276E MAXIMUM ELEMENT OF A VECTOR - FLOATING PT 

J277E SOLUTION OF A MATRIX EQUATION AX=B WHERE A IS N*N AND NON- 
SINGULAR - FLOATING PT 

J278E EVALUATION OF A ROOT OF A POLYNOMIAL WITH COMPLEX COEF- 
FICIENTS - FLOATING PT 

J279F AUTOMATIC COMPUTATION OF THE ZEROS OF A POLYNOMIAL WITH COM- 
PLEX COEFFICIENTS - FLOATING PT 

J280E CAT PUNCH WITH ECHO CHECKING 

J281E ORDINARY LEAST SQUARES - FLOATING PT 

J282F ORDINARY LEAST SQUARES - FLOATING PT 

J283E BACK AND FORTH BLOCK TRANSFER 

J284E LEGENDRE POLYNOMIAL EVALUATION - FLOATING PT 

J285E LEGENDRE POLYNOMIAL APPROXIMATION - FLOATING PT 

J286E LEGENDRE POLYNOMIAL COEFFICIENTS - FLOATING PT 

J287E (TRIANGULAR MATRIX >*VECTOR - FLOATING PT 

J288F LEGENDRE POLYNOMIAL APPROXIMATION - FLOATING PT 

J289E ORTHOGONAL POLYNOMIAL LEAST SQUARES - FLOATING PT 

J290E ORTHOGONAL POLYNOMIAL COEFFICIENTS - FLOATING PT 

J291E ORTHOGONAL POLYNOMIAL EVALUATION - FLOATING PT 

J292E TRIANGULAR MATRIX * VECTOR - FLOATING PT 

J293F ORTHOGONAL POLYNOMIAL LEAST SQUARES - FLOATING PT 

J294E ORTHOGONAL POLYNOMIAL LEAST SQUARES. EQUALLY SPACED POINTS 

■J295E ORTHOGONAL POLYNOMIAL COEFFICIENTS, EQUALLY SPACED POINTS 

)296E ORTHOGONAL POLYNOMIAL EVALUATION, EQUALLY SPACED POINTS 

0297F ORTHOGONAL POLYNOMIAL LEAST SQUARES, FQUALLY SPACED POINTS 

J298E INTEGRATION BY SIMPSONS RULE WITH PRESCRIBED ERROR - FLOAT- 
ING PT 

J299F JOHNNIAC FLOATING-POINT INTERPRETIVE SYSTEM 

J300E JOHNNIAC FLOATING-POINT INTERPRETIVE SYSTEM 

J301E SQUARE ROOT - FLOATING PT 

J302E COMPLETE ELLIPTIC INTEGRAL OF THE FIRST KIND - FLOATING PT 

J303E COMPLETE ELLIPTIC INTEGRAL OF THE SECOND KIND - FLOATING PT 

J304E COMPLETE ELLIPTIC INTEGRAL OF THE THIRD KIND - FLOATING PT 

J307A CLEAR THE DRUM 

J308A OCTAL DRUM DUMP 

J310E SOLUTION OF A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS - 

FLOATING PT 

J311E ORTHOGONAL POLYNOMIAL LEAST SQUARES WITH WEIGHTS 

J312F ORTHOGONAL POLYNOMIAL LEAST SQUARES WITH WEIGHTS 
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J21.6A 
J224A 



ASSEMBLY 

JOHNNIAC MUSIC 

SYMBOLIC-RELATIVE ASSEMBLY WITH DRUM 



J122A 
J123A 
J135A 
J136A 
J180A 
J217A 
J218A 
J267A 



LOADING 

LOAD STYLE B CARDS - LOW 

LOAD STYLE B CARDS - HIGH 

LOADER FOR STYLE F ABSOLUTE BINARY CARDS 

LOADER FOR STYLE E 

LOADER FOR STYLE F CARDS WITH BLOCK CHECK SUMS 

STYLE D LOWER LOADER 

STYLE D UPPER LOADER 

STYLE E LOADER 



INPUT 



J112A 

J129BVE 

J130B»E 

J131B»E 

)160E 

J161E 

J162E 

J203E 

J241E 

J242E 

J255B.E 

J256B»E 

J257B,E 

J262B»E 

J263B»E 

J265B»E 



LOAD STYLE 
CARD. IMAGE 
DECIMAL INPUT 
DECIMAL INPUT 
CARD TO MOUSE 
CARD TO MOUSE 
MOUSE MATRIX 



D CARDS 

TO CHARACTERS 

VARIABLE FORMAT 

FIXED FORMAT ONE/CARD 

MATRIX 

MATRIX WITH INTERMEDIATE 
TO H.S.S. 



COMPUTATION 



INPUT ADDRESSABLE FLOATING-POINT 

ADDRESSABLE INPUT - FLOATING PT 

INPUT DATA CARDS - FLOATING PT 

CAT READ ROUTINE 

CAT READ COMPILER 

CAT BCD FROM IMAGE 

CAT MOVE IMAGE 

CAT SELECTIVELY CLEAR IMAGE 

ADDRESSABLE DECIMAL INPUT 



DATA 



PRINT 

J223E PRINT DECIMAL NUMBERS - UNIFORM FORMAT AND SCALING 

J225E MOUSE MATRIX TO PRINTER ALPHANUMERIC 

J226E PRINT DECIMAL NUMBERS. DECIMAL FORMAT AND SCALING 

J227E MESSAGE PRINTER 

J233E DECIMAL PRINT ROUTINE 

J235E PRINT POSITIVE DECIMAL INTEGERS 

J238E PRINT DECIMAL - ONE PER LINE 

J244E PRINT AND TRACE - FLOATING PT 

J258B.E CAT OUTPUT ROUTINE 

J259B»E CAT ALPHANUMERIC PRINT 

H260B»E CAT DECIMAL PRINT 

>66B»E 120 COLUMN VARIABLE FORMAT DECIMAL PRINT 



PUNCH 

<J103B»E PUNCH STYLE B, ABSOLUTE — 11 PER CARD 

y J105B.E PUNCH STYLE D» ABSOLUTE — 22 PER CARD 

JU2E PUNCH STYLE F BINARY CARDS 

J148E PUNCH STYLE F WITH I.D. 

J163E H.S.S. TO MOUSE MATRIX 

J164E MOUSE MATRIX TO PUNCH 

J165E MOUSE MATRIX TO PUNCH WITH INTERMEDIATE COMPUTATION 
J166E • MOUSE MATRIX TO PUNCH AND ECHO CHECK 

J.167E MOUSE MATRIX TO PUNCH AND ECHO CHECK WITH INTERMEDIATE 

COMPUTATION 

J181E PUNCH STYLE F CARDS WITH BLOCK CHECK SUMS 

J182E PUNCH STYLE F CARDS WITH 8LOCK CHECK SUMS AND I.D. 

J201B.E PUNCH DECIMAL CARDS 

J209E PUNCH STYLE E 

J243E PUNCH DATA CARDS - FLOATING PT 

J261B»E CAT PUNCH 

J280E CAT PUNCH WITH ECHO CHECKING 

DEBUGGING 



J228A 

J230A 

J234A 

.J308A 



OCTAL MEMORY DUMP - 4 PER LINE 
OCTAL MEMORY DUMP W/O DRUM 
OCTAL MEMORY DUMP 
OCTAL DRUM DUMP 



J RED TAPE 

J104B»E BLOCK TRANSFER ROUTINE 

J120BtE BLOCK TRANSFER TO AND FROM DRUM 

J132B»E PRESET OR RESET ROUTINE 

J133B»E PSEUDO B-BOX 

J137B,E MANIPULATION OF ARRAYS 

J138B*E MULTIPLICATION OF ARRAYS 

J140A CLEAR H.S.S. TO ZERO 

J149B»E BLOCK TRANSFER TO AND FROM DRUM WITH TALLY 

J153A CLEAR H.S.S. TO PRESCRIBED WORD 

J189B»E INTERPRET T-SWITCHES 

J202A DUMP MEMORY TO DRUM 

J213A CHANGE ADDRESS FIELDS 

J219A STYLE D CHECK SUM CORRECTOR 

J232A INSERT BLOCK CHECK SUMS INTO STYLE F DECK 

J307A CLEAR THE DRUM 

INTERPRETIVE 



J250E 
J299F 
J300E 



INDEXING - FLOATING PT SYSTEM 

JOHNNIAC FLOATING-POINT INTERPRETIVE SYSTEM 

JOHNNIAC FLOATING-POINT INTERPRETIVE SYSTEM 



FUNCTIONS 



/ 



•J106B.E 
'J116B*E 

J127B,E 

J151B»B 

J1«54B»E 

J156B,E 

J186E 

J188B»E 

J190E 

J207A 

J214E 

J246E 

J247E 

J248E 

J249E 

J253E 

J254E 

J269E 

J270E 

J274E 

J275E 

J284E 

J286E 

J290E 

J291E 
295E 
296E 

CI301E 

J302E 

J303E 

J304E 



J124B 
J208A 

J271E 
J272E 
J273E 
J276E 
J277E 

J283E 
J287E 
J292E 



SQUARE ROOT 
LOG-BASE TWO 
ARCTANGENT X 
SIN Y, COS Y» 
SIN PI Y, COS 
INTEGRAL ROOT 



SIN 2Y, 
PI Y 
Xl/P 



COS 2Y 



FIXED POINT SQUARE ROOT WITH DOUBLE PRECISION ARGUMENT 

K TO THE X 

LOG - BASE E OR 10 

AUTOMATIC POLYNOMIAL FUNCTION EVALUATION - FL. PT. 

NATURAL LOGARITHM 

SINE-COSINE - FLOATING PT 

ARC TANGENT - FLOATING PT 

EXPONENTIAL - FLOATING PT 

LOGARITHM - FLOATING PT 

FIXED POINT SQUARE ROOT 1 

P-TH ROOTt P IN THE RANGE FROM 1 TO 39 

COMPLEX MULTIPLY - FLOATING PT 

COMPLEX DIVIDE - FLOATING PT 

POLYNOMIAL FUNCTION EVALUATION - FLOATING PT 

ITERATED SYNTHETIC DIVISION - FLOATING PT 

LEGENDRE POLYNOMIAL EVALUATION - FLOATING PT 

LEGENDRE POLYNOMIAL COEFFICIENTS - FLOATING PT 

ORTHOGONAL POLYNOMIAL COEFFICIENTS - FLOATING PT 

ORTHOGONAL POLYNOMIAL EVALUATION - FLOATING PT 

ORTHOGONAL POLYNOMIAL COEFF IC IENTS . EQUALLY SPACED POINTS 



ORTHOGONAL POLYNOMIAL EVALUATION, 
SQUARE ROOT - FLOATING PT 
COMPLETE ELLIPTIC INTEGRAL OF THE 
COMPLETE ELLIPTIC INTEGRAL OF THE 
COMPLETE ELLIPTIC INTEGRAL OF THE 



EQUALLY SPACED POINTS 

FIRST KIND - FLOATING PT 
SECOND KIND - FLOATING PT 
THIRD KIND - FLOATING PT 



MATRICES AND LINEAR EQUATIONS 

EIGENVALUES AND EIGENVECTORS OF A REAL STMMETRIC MATRIX 
AUTOMATIC COMPUTATION OF THE SOLUTION OF A MATRIX EQUATION 
AX = B, WHERE A IS N X N AND NON-SINGULAR — FLOATING POINT 
SCALAR PRODUCT OF TWO VECTORS - FLOATING PT 
SUM OF THE COMPONENTS OF A VECTOR - FLOATING PT 
LINEAR COMBINATION OF TWO VECTORS - FLOATING PT 
MAXIMUM ELEMENT OF A VECTOR - FLOATING PT 

SOLUTION OF A MATRIX EQUATION AX=B WHERE A IS N*N AND NON- 
SINGULAR - FLOATING PT 
BACK AND FORTH BLOCK TRANSFER 
(TRIANGULAR MATRIX ) *VECTOR - FLOATING PT 
TRIANGULAR MATRIX * VECTOR - FLOATING PT 



JX78E 
J264A 



APPROXIMATIONS 

LEAST SQUARES POLYNOMIAL APPROXIMATION — FL. POINT ' 
AUTOMATIC LEAST SQUARES POLYNOMIAL APPROXIMATION — FLOATING 
POINT 



J281E 
J282F 
J285E 
)2BSF 
J289E 
J293F 
J294E 
J297F 
J311E 
J312F 



J159E 
J268E 
J278E 

J279F 



J126B»E 
J183E 

J215E 
J298E 



310E 



ORDINARY LEAST SQUARES - FLOATING PT 
ORDINARY LEAST SQUARES - FLOATING PT • 
LEGENDRE POLYNOMIAL APPROXIMATION - FLOATING 
LEGENDRE POLYNOMIAL APPROXIMATION - FLOATING 



PT 
PT 



ORTHOGONAL 
ORTHOGONAL 
ORTHOGONAL 
ORTHOGONAL 
ORTHOGONAL 
ORTHOGONAL 



POLYNOMIAL 
POLYNOMIAL 
POLYNOMIAL 
POLYNOMIAL 
POLYNOMIAL 
POLYNOMIAL 



LEAST SQUARES - FLOATING PT 

LEAST SQUARES - FLOATING PT 

LEAST SQUARES, EQUALLY , SPACED POINTS 

LEAST SQUARES » EQUALLY SPACED POINTS 

LEAST SQUARES WITH WEIGHTS 

LEAST SQUARES WITH WEIGHTS 



NON-LINEAR EQUATIONS 



INVERSE INTERPOLATION, A REAL ROOT OF FfXJsO 

ZEROS OF A POLYNOMIAL WITH COMPLEX COEFFICIENTS - FLOATING PT: 
EVALUATION OF A ROOT OF A POLYNOMIAL WITH COMPLEX COEF- 
FICIENTS - FLOATING PT 

AUTOMATIC COMPUTATION OF THE ZEROS OF A POLYNOMIAL WITH COM- 
PLEX COEFFICIENTS - FLOATING PT 

INTEGRATION AND DIFFERENTIAL EQUATIONS 

SOLUTION OF A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS 

INTEGRATION OF N SIMULTANEOUS SECOND ORDER DIFFERENTIAL 

EQUATIONS WITH INITIAL CONDITIONS SPECIFIED 

10 PT. GAUSSIAN INTEGRATION — FLOATING POINT 

INTEGRATION BY SIMPSONS RULE WITH PRESCRIBED ERROR - FLOAT- ' 

ING PT 

SOLUTION OF A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS - 

FLOATING PT 
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JOHNNIAC SYMBOLIC -RELATIVE ASSEMBLY NO. 1 

w 

by J. Schwartz 
May 6, 1955 



INTRODUCTION 

This program Is designed to handle both symbolic and 
regional addresses. The program Includes provisions for input 
of decimal data with specified scaling, obviates the necessity 
of incorporating library subroutine decks at assembly time, and 
provides a listing of the deck being assembled, the binary deck 
produced and some of the errors, of a common type, which ap;4 
peared in the deck. The output is either a relative or an ab- 
solute binary deck, of the first location, check sum type, 
eleven full words on a card. St^M-^> 

During assembly time, instructions are given the assembler 
by means of a four-letter mnemonic code punched in columns 16-19 
of a card . 

DEFINITIONS OP TERMS 
In discussion of this program, certain terms are used 
frequently. These terms and their meanings as applied to this 
program are: 

(1) SYMBOLIC CODING: Location designations are necess- 
ary only when referred to by an address. Output values of 
locations are assigned by designating an output address to 
the first card of a sequence of cards. Each card following 
will have as final location a value one larger than the pre- 
ceding card. Addresses are assigned joutput values by using 
the output value of the location with the same symbol. 

(2) REGIONAL (RELATIVE) CODING: Every location and 
address is assigned a region and sequence number. A base for 
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every region must be assigned. The output value of addresses 
and locations is computed by adding the sequence number to the 
base of the region for the address or location. 

(3) SYMBOL: A symbol in this program consists of a two 
digit number and an alphabetic part, consisting of a letter 
or its equivalent number,* The numbers range from 00-99, and 
letters from A through Z (1-26). Examples are 13C 99Z, 00A, 
1303, 9926, 0001.* A^blank location field is considered a 
symbol. - 

(4) .REGIONAL (RELATIVE) ADDRESS (LOCATION): In the input 
deck a regional address consists of a letter or number* for a 
base, and a three-digit sequence field. Bases are from A-Z 
(01-26); with base zero reserved for shift orders, etc. Se- 
quences range from 000^999. 

... ..>■ 

(5) COUNTER: This is a cell reserved in memory for 
assignment of output values for symbolic locations. This is 
set before a sequence of cards by a control card and increases 
by one for every symbolic location entering the reader, assign- 
ing its current value to the present location. 

(6) ALPHABETIC CHARACTERS: In this program, every 
location and address consists of one alphabetic character and 
two or three numeric. The alphabetic character is either a 
number or a letter. A number can be used in place of a letter, 
the number being considered the same as the letter with this 



* See Definition of Alphabetic characters (6) p. 2 
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sequence in the alphabet. For example, A - 01, Z - 26. The 
program does not differentiate between A and 01, B and 02, etc. 
This de finition of alphabetic characters applies only to loca - 
tions and addresses . 

(7) INPUT CARDS: Cards which are keypunched and are 
being assembled. 

(8) OUTPUT CARDS: Binary cards to be punched by assembly. 
Both absolute and relative binary cards are considered, although 
the card form for both is the same, absolute being distinguished 
from relative only b$ having blanks in the binary region fields. 

Assembly instructions and their definitions, to be ex- 
plained in full later, are: 

1) • Instructions pertaining to symbolic coding: 
t a) SOEN: Symbol generation 

b) SAME: Reset counter to same value it had at 
this symbol. 

c) SETC: Set counter. 

d) SKIP: Skip counter. 

2) Instructions pertaining to relative coding. 

a) CTOR: Counter value assigned to origin. 

b) RDOR: Read origin from card. 

r 

3) Instructions pertaining to symbolic and relative 
coding. 

a) DDAT: Decimal data. 

b) ODAT: Octal data. 
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c) LIBR: Library subroutine origin assignment 

d) LAST: End of , deck to be assembled. 

4) Instructions pertaining to deck for loading. 

a) TRFR: Punch transfer card. 

b) LDOR: Punch origin cards. 



\ 

\ 
\ 



GENERAL CHARACTERISTICS OP INPUT CARDS 

Address and location fields are five characters in length. 
In symbolic coding, the third and fourth positions are the 
alphabetic character position (i.e., if a one-digit number is 
used, the fourth position contains this number, a two-digit 
number uses the third and fourth positions, a letter uses the 
third position only. There is never a punch in the fifth 
position of the address or location field in symbolic coding. 
There are 2<?00 symbols, with 00-99 the range in positions 1 
and 2, and 01-26 or (A-Z) in the third and fourth positions. 
In regional coding, the first and second positions are 
the alphabetic character position. If numbers are used, the 
first and second positions are used. Letters use the second 
position only. Sequence numbers are in the third, fourth and 
fifth positions of the field. A regional address always has 
a punch, in the fifth position. There are again 26 alphabetic 
characters, and the sequence ranges from 000-999. 

Aside from the fifth position, zero punches or blanks 
are treated in the same manner. 
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Blanks in location positions are treated as symbols. 
The counter is increased by one and the full word with this 
location is assigned this counter value as an output loca- 
tion. 

When an Integer such as a shift order is used in an 
address field* the units position must be punched. No field 
of this kind can have over 999 as its value . 

Examples of address and location fields. 



Equivalent 
Symbols 



12 3*5 

A 
1 
1 
A 



Equivalent 
Symbols 



Equivalent 

Regional 

Addresses 



Equivalent 

Regional 

Addresses 



9 


9 


Z 






9 


9 


2 


6 






A 














1 
A 

1 














2 


Z 

6 


9 
9 


9 
9 


9 

9 
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Operations can be alphabetic or octal numeric. Zeros or 
blanks can be used interchangeably. Letters cannot be used as 
direct replacements for numbers. For instance, A— means ADD 
or 02^, not 100. 

Assembly instructions are always letters. However, to 
prevent errors due to keypunching, when the letter "0" is in 
an instruction, it is permissible to use either the letter "0" 
punch or a zero punch. 

ASSIGNMENT OP OUTPUT ADDRESSES AND LOCATIONS DURING ASSEMBLY 

This is a two pass assembly program both for symbolic and 
relative coding. On the first [pass, the program reads and 
converts cards, and decides whether locations and addresses 
are symbolic or relative. 

1) When symbolic locations are used, the counter must 
be set preceding the entrance of any symbolic locations into 
the reader. After the counter is set, it will continue to 
increase by one for every symbolic location, unless it is 
reset. The counter does not increase by one when a relative 
location appears. After a location symbol is assigned an out- 
put location, this output location is put in a table contain- 
ing the output value of all symbols. The full word associated 
with this symbol is then stored on the drum. When all cards 
have been read, thei:words on the drum are recalled, and 
symbolic addresses are assigned the output value which is 
found in the table for that symbol. 

An arbitrary sequencing of symbols is allowed. For ex- 



ample, 99Z can follow 02B, etc. Instructions used to control 
the t counter are as listed on page 3 No. 1, and are used as 
follows : 

a) SQEN: If it is desired to designate groups of words 
with symbolic locations, i.e. data, erasable, the SOEN in- 
struction may be used to avoid punching a card with every 
symbol on it for assigning each symbol an output value. 

The card form for this instruction is as follows! 

Cols. 16-19 20-24 25-27 28-32 36-40 
SGEN 1st Symb. AS N AC 

1st SYMB. is first symbol desired to be generated. 

AS is change in each symbol desired. 

N is number of symbols to be generated. 

AC is the change in the counter for each symbol. 
Example: To generate a group of erasable cells 1.0000 - 
1.0009 in output, using symbols 13A - 13J in input, the fol- 
lowing procedure is used: 

Set the counter to 1.0000 (A.0000). Then read in the 
following card: 
Cols. 



16-19 


20-24 


25-27 


28-32 


36-40 


SGEN 


13A 
(1301) 


001 


0010 


00001 



Note that the change in the symbol is added to the letter 
position and not the numeric portion. In the example above, 
13A would receive the counter value 1.0000, 13B ■ 1.0001, 
13J - 1.0009- If the number of symbols is large enough to 
pass the letter value Z or 26, the next symbol generated will 
contain an increase in the numeric part of the symbol by the 
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increment 1, and the letter portion will be A (Ol). For ex- 
ample, if N had equalled 27 in the example above, the 27th 
symbol generated would be 14a, which would be assigned the 
value 1.0026 by the counters. The counter is left at the 
last position generated plus one after the symbols are gen- 
erated. Following this order, an address can refer to any 
of the generated symbols and be assigned an output value. 

■b) SAME: If a program is such that different blocks 
of words will use the same portion of memory at various ' 
times, the SAME instruction is used to reset the counter to 
the same value it was when the previous block was assigned 
output values . 

The card form is as follows: 

Cols. 16-19 20-24 

SAME Symbol 
Examples: SAME 15B 

This Symbol is the same as the one used previously. The 
counter is reset to the value it had at this symbol, and the 
next card will be assigned this counter value as a location. 

o) SET C: This instruction sets counter for regional 
output (Relative binary) or absolute output {absolute binary). 
There are 26 regions possible; (A-Z) (1-26), and/or a sequence 
of 0000- ( 4095 ) 10 - 

The card form is as follows: 

Cols. 16-19 20-21 29-32 

SETC Region Sequence 
Example: SETC A 3139 

01 3139 
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d) SKIP: This instruction permits an increase' in value 

i 

of the counter a specified number of places. The skip can be , 

in a region or sequence. 

Card form is as follows; 

Cols. 1-4? 1-5 7 

SKIP N 

N « numbers of places to be skipped, either in 

region or sequence. Greatest skip allowed in 

sequence is 999. 

Example : 

1) Cols. 16-19 20-24 

SKIP 01.000 

Counter will change to next region. 

2) Cols. 16-19 20-24 

SKIP 00.190 

Counter will increase by 190 in the sequence. 

2) When regional coding is used, the bases may be 
assigned at any time during the first pass. The regional ad- 
dresses and locations are stored on the drum until the second 
pass, then the bases are added to the sequences. Regional 
input bases may be assigned the same or different regional 
output bases (relative binary), or absolute bases (absolute 
binary) . 

Instructions used to assign bases for origins are: 
a) CTOR: .This instruction assigns a particular region 
a base equal to the counter value at this time. As an lopjEonJl •' V 
it also allows the skipping of the counter N places or n 
regions after assigning the base, N having the range 000-999. 
Card form is as follows: 



Cole. 16-20 20-21 28-29 30-32 

CTOR REG. n N 



n » Change In counter region -^ 



tL^*~**j 
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N « Change In counter sequence. ^ji^XZSZ ? 

Example: Assume counter at 4.1234 

Cols. 16-19 20-21 28-29 30-32 
CTOR P 01 105 
(06) 

After reading this card, input region P (06) will be 

assigned the output base and sequence 4.123.4* and the counter 

will move to 5.1339. 

b) RDOR: This is a base card which assigns a particular 

• region an output base (relative or absolute). 

Card form is : 

Cols. 16-19 20-21 26-27 29-32 
RDOR INPUT OUTPUT OUTPUT 

REGION REGION SEQUENCE 

Output sequence has the range 0000-4095. 

Example: Cols.16-19 20-21 26-27 29-32 

RDOR 01 D 3123 
A . 04 

For this case, any input address or location with 

region A (01) will be assigned the base 4.3123 for 

the binary cards. 

CARD FORM FOR PULL WORD ORDERS 

For both regional and symbolic coding, ordinary JOHNNIAC 
full words (consisting of location, left and right operation, 
left and right address) , will be designated by a blank 
assembly instruction. Operations can be octal numeric or 
alphabetic (see list of JOHNNIAC operations) , both oaaesuBlng 
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three character fields. In the numeric operations, zero 

punches or blanks are treated similarly. In alphabetic 

operations, zero punches and the letter "0" punches are 

treated similarly. 

Card form for full words 1st 

Cols. 16-19 20-24 25-27 28-32 33-35 36-40 

LOC. L.OP. L.ADD. R. OP. R.ADD. 

Examples: (Blanks represented by -.J 

Cols. 16-19 20-24 25-27 28-32 33-35 36-40 

13. A— 020 17C— S— -B.000 

SHL 01.01- 120 

02.26- RA- 02. Z— TRL 99 .B— 

-B.000 — 1 TRL 

CARD FORMS FOR DATA TO BE ASSEMBLED 

This assembler recognizes two types of data, decimal and 
octal. A card with decimal data has DDAT punched in the 
assembly instruction field. The data. is entered in the follow- 
ing manner. The location of the word is in columns 20-24, the 
sign of the data in column 25. T he full wo rd, from columns 26 
to 36 contains the data. Columns 37 and 38 contain the number 
of places from the sign position to the decimal point of the 
word, designated as p. Columns 39 and 40 contain the number 
of places from the 2° position, excluding 2°, of memory to the 
binal point of the full word. Columns 39 and 40 are designated 
as q. 

Card form is as follows : 

Cols. 16-19 20-24 25 26-36 37-38 39-40 

DDAT LOC. + DATA p^ " q . 
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Example: 16-19 20-24 25 26-36 37-38 39-40 
DDAT 13Z— + 137^206989 03 11 
DDAT 02.100 - 11500000000 06 20 

Octal data can be entered through the use of an ODAT In 
the assembly Instruction field. The data consists of a 14 
digit word with a or 1 in the first position and any octal 
number in each of the next 13 . The program will put the 
binary imagecdf this word in the designated location. 

Card form is: 

Cols. 16-19 20-24 25-38 

ODAT LOC. PULL WORD 

Examples : 

Cols. 16-19 20-24 25-38 

ODAT -J.400 17770000111000 
ODAT 15.02— 01110101777130 

INCORPORATION OP LIBRARY SUBROUTINES 

JO HNNIAC library routines will be in relative binary and ? 
will consist of region 3 as the instruction part, and other 
regions, usually 1 and 2 as erasable and constants. The only 
reference to a library subroutine in the main program is in ' ^) 
the calling sequence and this reference will be to cell 3. 000. v 

This assembly takes advantage of the above facts by having 
the programmer refer in his program to a symbol representing 
cell 3.000 for each library routine. The program then punches \ 
a card which contains the library program's identification and 
the current counter value which acts as the base for region 3 
in the library program, and other information if requested. 
During loading time, this card is placed in front of its re- 
spective library routine, and proper bases are assigned the 
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different library programs. 

This library feature also allows the sharing of regions 
1 and 2, or other regions, among the library programs, and 
with the main program if desired. This is done by allowing 
different bases for regions 1 and 2 to be assigned with each 
new library routine or not allowing different bases. If no 
origins are assigned for regions 1 and 2 for all library 
routines, all routines will share regions 1 and 2 with the 
main program. 

If it is desired to load all library routines in a block 
of memory, this library incorporation permits skipping the 
counter the necessary number of cells for each program. This 
is done by punching the number of words allotted to region 3 
in a particular program. 

The card form for library incorporation is as follows: 

Cols. 16-19 20-24 25-29 33-35 37-40 

LIBR SYMBOL REG.NOS. N RAND I,D. 

SYMBOL « symbol used as reference to program in 
calling sequence . 

REG. NOS. - the regions of the library program 
for. which new bases are desired. 1, 2, 
4, 5, 6 and 7 are possible, one per 
column. 

N ■ number of words in region 3 . 

i 

RAND I.D". m the numeric part of the RAND Library *> 
Id entificatio n. 

An example of this type of library incorporation is: 

Given two library routines with RAND identification 

/ 
RJ0020 and RJ0027 ;RJ0020 has 48 words in region 3, 4 words • 

in region 2, and 35 words in region 1; RJ0027 has 35 words 
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In region 3, 4 words in region 2, arid 40 words in region 1. 

The current counter number is 6.1234. There is no input 

region 1 and 2 in the main program. 

One method of incorporating these two programs is the 
following: 

1) In the main program have the following calling se- 
quences : 

a 1 RA - o 1 TRL 13S— 
a 2 RA - a 2 TRL 252— 

2) Have following LIBR cards punched: 

Cols. 16-19 20-24 25-29 33-35 37-40 

a) LIBR 13S- 048 ,0*020 

b) LIBR 25Z — 035 ^027 

3) Given this information, the assembly program will 

S~ 
punch two binary cards. In the first $ columns of one will 

appear BJG026. An (077) 8 will appear in the left operation 

position of the right-hand side of the 9's row on both cards. 

The number "3" and the base 6.1234 will appear in the left 

half of the 8's row of RJ0020. The other card will contain 

•RJOOS^as an identification and the number "3" with 6.1282 

in the left half of the 8's row. 

4) At load time these cards should be placed at the 
front of their respective library routines. A relative 
binary origin card should contain origins for regions 1 and 
2, even though there ate no regions 1 and 2 in the main pro- 
gram. Also an origin card for region 6 must be loaded with 
the program. 
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5) Then the two library programs will be loaded, with 
regions 1 and 2 being shared in memory, and region 3 for each 
program going into the cells specified by the base for region 
6 and the respective sequence numbers. 

6) The binary cards containing the calling sequences 
for these programs will appear with the transfers to 6.1234 
and 6.1282 respectively. 

If it is desired to put regions 1 and 2 of the library 
programs into regions other than 1 and 2 in the main program, 
the following procedure can be used. 

1) Preceding the LIBR cards for these programs read in 
RDOR or CTOR cards containing bases for regions 1 and 2, for 
example Region 1 has base 7-0000, Region 2 has base 7.0050. 

2) Punch LIBR cards, this time of the following form: 

Cols. 16-19 20-24 25-29 33-35 ^40 
LIBR 135— 12— 048 #020 
LIBR 25Z— 12-— 035 J0O27 

3) The results of these operations will be the same as 
previously, except that now the library header cards punched 
will contain a "1" and 7. 0000 in the 7's row, and a "2" and 
7.0050 in the 6 row of the left half of the card. 

4) Now at load time, a relative binary origin card for 
region 7 is necessary as well as the one for region 6 as pre- 
viously. No origin for regions 1 and 2 is now necessary. 

5) Once the input bases for regions 1 and 2 have been 
made equal to 7-0000 and 7-0050, they will remain this way 
for the remainder of the assembly. 
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INSTRUCTIONS USED FOR PREPARATION OP LOAD DECK 

These assembly instructions are used to make possible the 
Immediate loading of a program after assembly, by punching 
relative binary origin cards at the front of the output deck 
and a transfer control card at the end. 

LDOR: This is a card which contains the absolute base 
of an output region, which will be used in loading the final 
program. A series of these cards will produce one binary 
card containing the designated regions and their respective -, 
bases . This card is punched immediately preceding the main 
deck and has an 020 in binary in the left operation of the 
right half of the. 9's row. 

The LDOR card has the following form: 

Cols. 16-19 20-21 29-32 

LDOR REGION ABSOLUTE BASE 
Example: LDOR 01 1299 
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TRPR: The TRPR card is a card containing the desired ' 
address to transfer control to after loading the assembled 
deck. This produces a card recognizable by the loader , 
which will transfer control to the left half-word of the 
designated address. This address can be symbolic or regional 
on the TRPR card, and regional or absolute on the binary 
transfer card. 

Card form: 

Cols. 16-19 20-24 

TRPR SYMBOL OR REGIONAL ADDRESS 
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MARKER FOR END OP DECK TO BE ASSEMBLED 

Because the JOHNNIAC has no end of file return, it is 
necessary to have a card mark the end of the input cards. 
For this program, the marker is a card with a LAST punched 
in the assembly instruction field.. This card alBo can be 
used to form the identification field for the output cards. 
Columns 20-£7 of the LAST card will be reproduced in columns 
1-8 of all the output cards except the origin, library, and 
transfer cards. 

Card form of LAST card is: 

Cols. 16-19 20-27 
LAST I.D. 

INSERTIONS AND DELETIONS 

The method of making insertions and deletions depends 
on the type of input and output cards used. 

Insertions and deletions can be made in a symbolic deck 
simply by adding or deleting cards and reassembling, thereby 
getting a new binary deck and an up-to-date listing. 

There is no provision for making insertions or deletions 
in a regional input deck. Relative binary output cards can 
be inserted and deleted by means of the program for that 
purpose. This program will produce a new relative binary deck 
and also an up-to-date octal listing. 

No insertions or deletions can be made in an absolute 
binary deck. 

Binary corrections can be made with either absolute or 
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relative binary cards. 

LISTING 

The listing is composed of three parts. First is the 
listing of the library header cards that are punched. This 
will consist of every region and the base assigned for each 
library program. The heading will be the RAND Identification 
for each library routine. 

The second part of the listing contains the output pro- 
gram deck. This consists of two lines for every full word 
on a binary card. There are four spaces at the end of the 
listing of each binary card. The listing for each full word 
contains on the first line the location and two addresses, 
or data exactly as they appeared in the input deck. The 
second line contains the octal image of the location and full 
word as they appear in the binary deck. 

At present, some fractional data will be listed -1 in 
the least position. In some cases, for example, .4999 will /J*^* 
be listed for .5000. 

The third part of the listing contains a list of the 
errors found during assembly. 

* 

ERRORS AND ERROR DETECTION 

Wherever possible, this assembly, upon finding an error 
will make a note of it, replace the error, and continue with 
the assembly. These types of errors will then be listed as 
thetiiird part of the listing. Each type of error will be 
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listed under a numerical heading which represents this error. 
The contents of the list will be information which allows 
one to locate the error and describes what correction was made, 
where applicable. 

Errors that are listed, and their headings are: 

a) Two equal location symbols: 7777 

This error occurs when the same symbol is used in two 
different location fields. When this error is detected any 
address using this symbol will; Jhave a blank on the binary 
card where this address appears. Each line under this error 
will contain the symbol which is used twice, the counter 
value assigned this symbol previously and the current counter 
. value. 

b) No assigned base for input region: 123^ 
This error will be detected by the assembly if no RDOR 

or CTOR card was used and there are regional addresses or 

locations used on input cards. When this error is found for &*ZZ*~~ 

one region, the assembler assigns the region base (6000)«. ., *__ 

o jj*'\^ o 

For each succeeding unasslgned region, this base assignment ^T. 
is increased by (4oo)g; i.e., the second region will be 
assigned base (6400)g, third (7000)g, etc. 

Each line under the error will contain the region which 
was unasslgned and the base assigned by the assembly program. 

c) Illegal operation: 3^3 

This error is detected when an alphabetic operation is 
misspelled, so that there is no such operation. Wrong 
numerical operations are not detected. 000 or NO-OP will re- 




-lo cation In octal of the full word wh e re the error Is located -; 

d) Improper q for DDAT: 1717 

If* on a decimal data card, the specification of the 
blnal point is Incompatible with the number of decimal places, 
an error will be detected. In this case, a blank will be left 
on the binary output card in place of the full word where the 
error occurs. 

Listed under the heading will be the output location, in 
octal, of the wrong data. 

e) Heading greater than 9926s 2700 

If the third and fourth characters of a symbol are 
greater than or equal to 27 (greater than Z), an error will 
be recognized. A blank will replace the symbol in the output 
cards, and also in the symbol table, so that If this symbol 
was used as a location, the addresses with this symbol will 
have no location to assign them a counter value. 

Listed under the heading will be the symbol in error and 
the counter value in octal where it occurs. 

f) No counter value for address: 6666 

This error occurs when there has been no symbol in a 

location field for a corresponding symbol in the address field. 

Listed under the heading will be the symbol, and— th«- 

OUtDUt - l O Pfttl nn nf thP full W<l cd-wbojao -_^. rw ™ii r n - 

Certain errors, such as errors in assembly instructions, 
are not correctable by the assembly program and will cause 
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stops in the program. .In most of these cases, it will be 
necessary to reassemble. 

When a counter region is overrun, it is possible to 

"7 

continue with the assembly by taking the jtasft card read out 

of the reader and placing it in front of the remaining cards 
in the hopper and pressing the "GO" button. 
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Additions and Corrections to Write-up 
on JOHNNIAC Symbolic Relative Assembly No. 1 



(1) New Title 

In the JOHNNIAC library, the program as described in 
this write-up (making use of the drum) is titled J100A. 

(2) J118A (Assembly without drum): 

J100A has been modified so that the same assembly can 
be done without use of the drum. This program is called 
J118A, and is identical with J100A in every other respect. 

(3) Input of floating data 

The instruction PDAT can be used with both J100A and 

J118A to make the assembling of floating data possible. 

The form for this type card is : 

Cols. 16 - 19 20 - 24 25 26 - 27 28 - 36 
PDAT LOC'N SIGN EXP. MANTISSA 

The decimal listing for this type input will not be 

correct. The octal listing, however, will be exactly as 

on the binary card. 

(4) Corrections 

(a) Page 12, under examples of ODAT 

The examples given should contain 14 octal digits, 

zero or one in the first positions and 13 other digits. 

Cols. 16 - 19 20 - 24 25 - 38 

ODAT -J400 17770OOO111OO3 
ODAT 1502 01110101777135 

(b) Incorporation of Library Subroutines, pp. 12-15. 
All references to subroutines should be changed 
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from RJXXXX to JXXXB, so that the first five columns of the 
I.D. field are used for subroutine identification. Thus, 
all references to RAND I.D. in the examples should use only 
columns 38-40. 

(c) Page 15, the first line of the example should read: 

Cols. 16 - 19 20-24 25 -29 33 - 35 38 - 40 
LIBR 13S 12-— 048 020 

(d) Page 16, example, middle of page: 

The A under the REGION field should be under 
column 21. 

(e) Page 17 » first paragraph, line 6, should read: 
Columns 20-27 of the LAST card will be reproduced . 

(f ) Page 20, paragraph (f ) : 

The second sentence should read, "Listed under the 
heading will be the symbol." 

The output location will not be listed. 



J101A LOAD STYLE B CARDS Obsolete: 

(1) Description 

J101 is a program to load the absolute or relative 
check sum binary cards produced by J100 (style B cards) 
and incorporate the library, origin, and transfer cards 
punched by J100. 

(2) Binary card form to be loaded: Style B 

(3) Origin Cards 

The origin card for the regions on relative binary 
cards is recognized by a punch in column 43 of the 9's 
row and the remainder of the 9's row blank. There is 
room to place 44 origins (including repetitions) on this 
card by designating columns 1 - 7> 20 - 28, 41 - 47, 60 - 68 
as the region positions, and columns 8 -19, 29 - 40, 48 - 59, 
69 - 80 as their respective bases in rows 8 - 12 of the 
origin card. The origin card can be entered at any point 
in the program deck, but must precede cards with references 
to the regions on the origin card. More than one origin 
card is allowed. The origins are loaded from left to right 
beginning with the 8's row, so that a change in origin can 
be made by punching the region and new base in a higher row 
of the card or to the right on the same row. Twenty r six 
regions are allowed (1 - 26).-, in addition to region zero 
(absolute binary) . 
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(*)■) Incorporation of Sub-routines 

Library heading cards, which contain the origin for 
region 3 for the particular library routine and any other 
necessary region are recognized by an (077 )d in columns 
^1-47 of the 9's row and the remainder of the 9's row blank, 
except possibly for some identification in the first 8 
columns. 

The regions specified are in columns 17 - 19 begin- 
ning with row 8, and the bases (relative or absolute) in 
columns 23 - 40 in the respective rows. The sequence of 
the bases is in columns 29 - 40, and region for the bases 
in columns 23 - 28. The region specified in columns 17 - 19 
is the actual region in which the library program is coded 
(0 - 7)* while the regions specified in columns 23 - 28 
are the regions used in the program to be loaded other than 
the library programs (0 - 26) 1Q . The load program uses two 
tables of origins. One consists of 27 places (0 - 26). 
for the main body of the program, for which each origin is 
assigned a base by origin cards (see section 3) . The second 
table consists of 8 places (0 - 7) 10 * for the origins of 
the particular library routines. Thus, the origins for the 
library routines can contain as bases a region which is one 
of the 26 program regions. In this case, the library 
address will be increased by the sequence in the library 
base plus the base of the region specified in the library 
origin. 

The library header card should be placed in front of 
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its respective library program so that each library program 
will be placed in its proper position in memory. Library 
subroutines are in style B card form. The last card in 
every subroutine is recognized by a punch in column 10 of 
the 9's row, which is included in the check sum of this 
card. 

(5) Binary Corrections 

To set up the load program to accept binary corrections, 
a card with a punch in column ±0- in the 9's row, and the 
remainder blank, is necessary. The cards following may or 
may not be binary corrections. If they are not (i.e., if 
regular check sums cards are used again) any further binary 
corrections must again be preceded by a card with a 9 
punch in column 4©-. 

The binary corrector cards are all recognized by a 9 
punch in column 10. The location of the correction is in 
columns 11 - 28 of any of the 12 rows from 9-12, columns 
11 - 16 for the region of the correction, and columns 17 - 28 
for the sequence. The full word of the correction is in 
the same form as the style B check sum cards (i.e., columns 
29 - ko for the two address regions, and columns 4l - 80 
for the two operations and sequences. 

(6) Transfer Control Card 

The transfer card is recognized by the absence of any 
punches in columns 4l - 80. The transfer or halt transfer 
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Instruction is placed in columns 1 - 7 of the 9's row 
and the transfer address in columns (23 - *K)), (23 - 28) 
for the region, and (29 - 4o) for the sequence. 

(7) Repeated Use of J101 

By retaining cells (0 - 335)g in memory after a pro- 
gram has been loaded, more cards can be loaded by J101 by 
executing a transfer to address (6o)o and having the cards 
to be loaded at the read position of the primary feed of 
the collator. 

(8) Program Stop3 

(a) (172)q: Check sum stop 

By pressing "GO" button, the program will continue, 
but the card following the bad check sum card will 
not be loaded. 

(b) (127) Q J Blank 9's row 
Press "GO" to restart. 

(9) Program length: (336)g full words 
Memory occupied (0-335) 3 

Program available as J101A. 
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Available In style B absolute binary cards. 
Program Storage; 2960 1Q - 4095 10 (5620g - 7777 8 ) . 

LIST OF FREQUENTLY USED LOCATIONS 
Dec. Octal Contents 

2960 5620 First Location of Interpreter 

2963 5623 020 [I CTR.J 050 5623 

2980 5644 I Register 

4041 7711 Error Halt Location 

3040 5740 Trap Register - BRKPT 

3041 5741 " " "" A11 rders 

3042 5742 " " - Transfer 

3656 7110 AMQ Exponent 

3658 7112 AMQ Mantissa «,.,-«.* 

3708 7174 072 [ q x J 025 7016 - Square Root Shift* 

3733 7225 022 7122 076 [ q 2 ] - Series Shift* 

3999 7637 Series Test Number* 

3064 5770 Index Register A 

3056 5760 

3052 5754 

3050 5752 

3049 5751 

3048 5750 

3597 7015 Integer - Zero 

3598 7016 " - One 
. • • "• • 

: i - • 

3606 7026 Integer - Nine 

3615 7037 " - * lft y 

3634 7062 " - Ten exp zero 

3635 7063 ? - '.' ; -One 

: : : " : : : 

3643 7073 Integer - Ten exp. Nine 

Let A » f / +1 \ - f n > where f R is the n th approximation to 
the function f . The test for convergence' of f n+1 to f 

A n| - z. 
Z is always 1 for the SQR operation. For the ART, EXP, and 
LOG operations Z is the series test number . The series 
test number is ordinarily equal to 1 for these three opera- 
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B 
C 
D 
E 
F 
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LIST OP FLOATING-POINT OPERATIONS 



The Operation Codes refer to the two least significant 
octal digits of the representation of the JOHNNIAC Operation 
Codes. The most significant octal digit of the latter is 
always used for control purposes in the Floating Point 
Interpretive System. 



00 (No Operation) 

01 TNL 

02 TPL 

03 TL. (Transfer Left) 

10 EXL /Exit Interpreter) 

iLeft / 

11 TZL /Transfer on ZercA 

I Left I 

12 

13 INP (Read Cards) 



04 PCH (Punch Cards) 

05 TNR 

06 TPR 

07 TR (Transfer Right) 

14 EXR (Exit Interpreter) 

\Right ' 

15 TZR /Transfer on Zero} 

V Right J 

16 

17 PNT (Print) 



20 


RA 


21 


RS 


22 


RAV 


23 


RSV 


30 




31 




32 


M 


33 


MN 



24 


A 


25 


s 


26 


AV 


27 


sv 


34 




35 




36 




37 





J"/c» %€. 



40 


DS 


41 


DNS 


42 




43 




50 


ST 


51 


SQR 


5£ 


SIN 


53 


COS 


60 




61 




62 




63 





70 RAX /Reset Add] 

Vlndex / 

71 TNX (Transfer on \ 

\Negative Index/ 

72 TPX ('Transfer on \ 

\Positive Index/ 

73 ENX (Enter X Mode) 



44 






45 






46 






47 






54 


ART 




55 


EXP 


<e X ) 


56 


LOG 


(Natural Log.) 


57 






64 






65 






66 






67 






74 


AX 


CAdd Index) 


75 






76 






77 







gT 

o 

c 

ST 

cd 
S 

■P 
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40 COL. A, _ ^X PRINTER 
JOHNNIAC FLOATING POINT SYSTEM 



X - DECIMAL DIGIT 
Y - OCTAL DIGIT 



/BLANK - PLUS 
S l_ (D MINUS 



12 3 ^ 5 6 7 8 9 '0 1 '2 '3 V5 16 V '8 



"L C 
Y Y Y Y 

L C 

YYYi 



L C 
Y Y Y Y 



S X X 



S 



o 
o 



2 



LOP 


L AD 


Y Y Y 


Y Y Y Y 


R P 


R AD 


Y Y Y 


Y Y Y Y 


TAG 


R AD 


Y Y Y 


Y Y Y Y 



A 
C (a) 

xxxxxxxxx 



T ? 


Off 


T 3 


Off 


T 2 


On 


T 3 
T 3 


Off 


T P 


Off 


On 


T 2 


On 


T 3 


On 



.p 
o 
CO 

rH 
H 
a) 

C 
cd 
£ 



C (AMQ) 
SXXlXXXXXXXXX 



S X X 



ONE EXTRA LINE IS SPACED PRIOR 10 
PRINTING INFORMATION FOR THE LEFJT 
ORDER. 



B 
C (a + 1) 
S X X| X X X X X X X X X S X xj 



u 

cd 



o 
o 



l 9 *b \ % *3 ^ "5 '6 *7 *8 "9 b *1 B 2 3 ^ J 5 *6 3 7 3 8 *9 "0 



C (AMQ) 
XXXXXXXXX 



X( ) 
X X X X 



FORMAT FOR: 

C (MEM) 
SX^XXXXXXXXXi TRACING LEFT 

ORDER 
C (MEM) 
SX3i|XXXXXXXXX! TRACING RIGHT 

ORDER 
NON- INDEXING 
AXr j 
X X X Xj TRACING RIGHT 
ORDER INDEXING 



SENSE SWITCH SETTINGS FOR TRACING 

NO TRACING 

BREAKPOINT 

TRANSFER 

FLOATING POINT (All Ordeijs) 



P 
<l> 
CO 



cd 

C 
cd 



u 
a> 

J* 



rH 
O 

o 



C ( a + 2) 
XXXXXXXXXi 



-p 

CO 

rH 

cd 

c 

cd 
£ 



PRINTING WITH 

TAG OR 

ROP - 1 A 1 & 1 C 



a 
aJ 
A* 

cm 
o 

to 

cd 

£ 

-P 

x: 

bO 
•H 



a 

V 

m 



v^> 
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J103B PUNCH BINARY PROGRAM - 11 PER CARD 

J/oJ£ : l 

Eleven words per card are punched In style B absolute 
cards, beginning with first location specified and ending 
with last location specified. 

Region 1 (erasable) - 7 words 

Region 3 - ^7 words 

Calling sequence : 

a 020 a 010 XXX (arbitrary symbol) 
a + 1 000 first loc. 000 last loc. 
ct + 2 Control returns here 

Program available as J103B,E 



J104B block transfer routine 

JT/04-E. 

Calling sequence: 

a RA a TRL XXX (Arbitrary symbol) 
a + 1 [ ] arbitrary instruction pair 

a + 2 000 AL 000 AR increments to addresses in 

a + 1 
a + 3 000 0000 000 n number of executions 
a + 4 Control returns here 

J104 executes the instruction pair in a + 1 n times. 
After each execution the addresses are. modified by adding 
the increments in a + 2 then storing both addresses, there- 
fore, the addresses can be decreased by adding complements. 
The call sequence Itself remains unmodified. J104 can be 
used to read, print or punch images and to clear equally 
spaced locations in addition to its more frequent use as 
a block transfer routine within high-speed storage. 

Examples: a RA a TRL XXX (Arbitrary symbol) 

a + 1 RA 1000 ST 2000 
a + 2 2 4095 
a + 3 20 

This copies the contents of 1000(2)1038 into 2000(-l)l98l. 

a - 1 SEL 

a RA a TRL XXX (Arbitrary symbol) 

a + 1 C 1000 ST 1001 

a + 2 2 2 

a + 3 12 

This reads a card image from the primary feed into 1000(1)1023. 

Program Length: 14 words - all in region 3 

Program Available: J104B ? E 

No program stops . 

Timing: Approximately .8 ms before first execution of the pair. 
Approximately .5 ms between executions of the pair. 
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J105B PUNCH BINARY PROGRAM - 22 PER CARD 

Twenty-two full words per card are punched [in style D •■':]. 
absolute cards, from first location to last location speci- 
fied. 

Region 3-56 words X 

Region 1 (erasable) - 8 words 

Calling sequence: 

a 020 a 010 XXX (arbitrary symbol) 

a + 1 000 first ioc. 000 last loc. 

a + 2 Control returns here 

Program available as JIOSB^E 



O-G-^ 



J106B SQUARE ROOT 

Take the square root of the fraction in the MQj leave 
the answer in the Accumulator. 

Calling Sequence: • 

a RA a TRL XXX (Arbitrary Symbol) 
a+1 Control returns here. 

Program length: 



38 words of region 3 
5 words of region 1 



Program Stop: 



3.0036 Argument < 

Hit start to set answer = 0. 

Timing : 

4.093 ms < total time < 21.830 ms 
Approximate expected time « 14 ms 

Precision: error < 2 J * 

Program available as JlOoBjE" 
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J107B K* 

TtolB 

K - 2, e, or 10. X in MQ. 

Calling Sequence: 

a 020 a 010 XXX (Arbitrary symbol) 
a+1 *i' 2 " lQ + k-2" 39 

a+2 Control returns here, 
k - 2 X 

1 e x 

2 10 X 
leaves K* in MQ normalized. 

leaves q 2 «2 in Accumulator where q 2 is scale factor for K*. 
q. = location of binary point in X. 
- 90 < q x < 37 

Approx. Maximum time: 25 ms 
Accuracy: Approximately 9 S.D. 
Program Stop: 3.009 q-j, exceeds 37 
Program Length : 56 words in region 3 

3 words in region 1 

Program available as J107B E 
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J108A LOAD STYLE B CARDS __ in .,. -. « ~ 

J108 Is identical with J101 except for the following 
features : 

Sections 1 - 6 of the J101 write-up are the same for 
J108. 

(7) Repeated Use of J108 

By retaining cells (7446 - 7777) 3 in memory after a 
program has been loaded, more cards can be loaded by J108 
by executing a transfer, to address (751l)g and having the 
cards to be loaded at the read position of the primary feed 
of the collator. 

(8) Program Stop 

(a) 7623: Check sum stop 

(b) 7560 : Blank 9's row 

(9) Program length (332)g full words 
Memory occupied (7^6 - 7777 )g. 

In the initial loading of J108, cells (0 - 57)0 are 
used, but not when J108 itself is in operation. 
Program available as J108A. 
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J109B DECIMAL DATA INPUT 



I 



J109 will input any number of decimal numbers, one 
per card, at full speed, from the primary reader and place 
them in consecutive locations of H.S.S. beginning with the 
location specified in the calling sequence. Scaling of the 
numbers is specified by p and q field for each number 
to be input, p is the number of digits in the word from 
the sign position to the decimal point, q is the number 
of binary bits to the left of the binal point, excluding 
the sign position. 

One word on each card, with its sign, eleven digits, 
p, and q can be read. The remaining columns, except ...... a a* 

column 80, of the card are ignored by J109- Reading is 
terminated when a 12 punch in column 80 is encountered. 
The last card (12 punch in column 80) is included in the 
input, and the information on it is stored in the location 
following the preceding card's location. 

Card form: 



Cols. 


25 
Sign 


26 - 36 
Word 


37 - 38 
P 


39 - 40 

q 


Example: 










Cols. 


25 


26 - 36 
023456789OO 


37 - 38 
03 


39 -4o 
06 



In the number, p, and q fields, zeros or blanks are 
considered to be the same. In the sign position, a blank 
is treated as a plus sign. A minus sign is a punch in 
row 11. A plus sign punch is a punch in row 12. 
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Call sequence: 



a RA a TRL XXX (arbitrary symbol) 

a+1 YYY (YYY - 1st location in H.S.S.) 

a+2 Control returns here 



Program stop: (3.0137)3: Wrong q for given p. Program 
will not continue. 

Program length: 

Region 3: (130) 10 words: (3. 0000 - 3.020l) Q ■ 
Region 1: (l6) 10 words: (1.0000 - 1.0017) 8 



Program available as J109B. 
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J110B DECIMAL PRINT ROUTINE 

JllO converts to decimal and prints a block of H.S.S. 
beginning at a specified location, according to scale factors 
and other specifications stored somewhere in H.S.S. The 
resulting printed page will have one space at the left, sign 
and first word, space, sign and second word, space, etc. 
Let 

a » number of words per line 

b - location of first word to be printed 

c » number of lines 

d » location in H.S.S. of scaling factors, etc. (see 

below) 
p - number of decimal digits left (right if negative) 

of the decimal point of the i th word. 

q. «* location of binary point in i th word [+ if right, 
x - if left] 

k, » fb if p. and q. are positive 
1 ^ „ hi „ „i „ negatlve 

n, = number of decimal digits of i th word to.be 
printed . 



a 
Thus J" n. + 2a < kO. 



£> 1 + 



Calling sequence: 

a 020 a 010 XXX (arbitrary symbol) 
a + 1 a b c d 
a + 2 Control returns here 



(continued) 
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Locations d (l) d+a-1 in H.S.S. have 

d k x Pl q x n x 
d+1 k 2 p 2 q 2 n 2 



d+i-1 k ± p ± q ± n ± 



d+a-1 k a p a q a n a 



A minus sign appears as (D (0 and 1 overprinted) . If a 
number is incorrectly scaled, (0 and 2 overprinted) will 
appear in the sign position followed by all zeros. The 
program will not stop. 

Region 1 (erasable) - 18 words 
Region 3 - 102 words 

Program available as J110B } E- 
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J112A SELF LOADING BINARY LOADER FOR STYLE D 

J112 will load Itself and any number of style D cards 
which follow it into HSS, checking the check 3um on each 
card. Loading will cease when a card with a positive 
right half 9's row is encountered. The control will then 
execute the instruction made up by the operation in 9's 
row C, 7 and the address in 9's row Cgg..^ 

Program Location: 0000 - (0057)3- 

Program Stop: (0050)g Check sum stop. 



Program available as J112A 



-r*e«_ 03)- ~£r j^xu. jnj. 
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J113B SINE-COSINE PROGRAM O^SOUETE 

The four trigonometric functions developed and their 
locations are: : < 

sin y in location 1.001 

2 : .'.■;::■. 

Cos y in location 1.002 

1 n * 

sin 2y in location 1.000 and in MQ 

' g *" ■■■,.■,:.■■.'■ 

cos 2y in Accumulator 

2 :.:;■:; '■''•'.:':'.''.•: 



Range: -1 < y < 1 (in radians) 

Region 3-31 words . 
Region 1 (erasable) - *f words 

' ■;; y in MQ • ^^&f .V 

Calling sequence: 

a 020 a 010 XXX (arbitrary, symbol) 
a+1 Control returns here 

Program available as J113B 






J114A OCTAL MEMORY DUMP 

This program prints two full words and the location of 
the first word in octal on one line. Lines having both words 
zero are omitted. The section of memory to be printed is 
specified by a control card or set of control cards. 

The program uses a special loader which writes the con- 
tents of high-speed memory from 0002 1Q to 0499 1Q onto drum 
(drum 0, position 0, band 0), so that all of memory except 
locations 0000 and 0001 may be printed. 

Printing is terminated by a blank control card. At the 
conclusion of printing, memory is restored (except locations 
0000 and 0001). 

Deck: Jll^A 

Control cards 
3 blanks 

Program length: effectively 2 words in high-speed storage 

(764)g m (500) 10 on drum 

Stops: 0000 Printing complete, memory restored. 

Control Cards: One for each block of memory desired. 

First address punched in binary in 9 row, col .48-59 
Last address punched in binary in 9 row, col. 69-80 

Program available as Jll^A. 
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J115B PRINT POSITIVE DECIMAL INTEGERS 

Calling sequence: 

Loc OP ADDR OP ADDR 

a Q RA a 

a+1 TRL XXX N 

a+2 Control returns here 

where: Q Is the location of the first word. 

N, the number of consecutive words to be printed, 
XXX, any arbitrary symbol. 

J115 will convert consecutive positive words to decimal 
integers and print them one per line. 

Region 3-36 words 

Region 1-10 words 
Program available as J115B,& 

Speed: 5 digits or less per line - 900 lines/mln. 
6 or more digits per line - 600 lines/min. 
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J116B LOGARITHM - BASE 2 

2~™ logp x is developed in A, MQ. 
MQ ■ 1 is not a part of the answer. 

Range: < X < 1 

If X » the program will stop at 3.019< 

The routine is entered with X in MQ. 
Calling sequence : 

a 020 a 010 XXX 

a+1 Control returns here 
Region 1 (erasable) - 4 words 
Region 3-23 words 
Error less than 2~^ assuming X exact. 

Program available as J116B, E 
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J117B LOGARITHM - BASE e or 10 
JV/7E 

-39 
2 • J " log X base e or 10 la developed in A, MQ. MQ is 

not part of the answer. 

Range: < X < 1 

If X « the program will stop at 3.030. 
Calling sequences 

a 020 a 010 XXX 

a+1 000 L(X) 000 flpoog *£ ££ J Q 

a+2 Control returns here 
Region 1 (erasable) - 6 words 
Region 3-39 words 
Logarithms accurate to 9 decimal places. 

Program available as J117B^ a 



J118A RELATIVE SYMBOLIC ASSEMBLY WITHOUT DRUM 

J118A is designed to perform the same functions as J100A, 
at times when the drum is not available on the JOHNNIAC, making 
the use of J100A impossible. 

All the card forms and versatility of J100A are available 
without exception on J118A. However, the lack of a drum nec- 
essitates somewhat more physical exertion on the part of the 
programmer or machine operator at assembly time. The procedure 
for assembling a program with J118A is the following: 

The deck to be assembled, with one blank in front and 
three behind is placed in the secondary card feed. PART I of 
J118A is then put in the primary feed. The LOAD button Should 
then be pushed. After all cards are read and the punch stops 
punching, both feeds of the collator should be cleared. The 
cards that have been punched should be placed in the secondary 
feed of the collator (with one blank in front and three behind). 
PART. 2 of J118A is then put in the primary feed of the collator. 
After starting the machine again, the assembly process will 
continue as in J100A. 



Jules Schwartz 
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J119B 


PRINT 


DECIMAL - 


ONE pe; 


Calling Sequenct 


3 S 






LOC 


OP 


ADDR 


OP 


ADDR 


a 




A 


RA 


a 


a+1 


TRL 


XXX 




N 


a+2 




Q 




K 



a+3 Control returns here 

where: XXX is any arbitrary symbol. 

A is the loc. of first word to be printed. 

N, the number of consecutive words to be printed. 

Q, the scaling or location of the binary point 

for all N words < Q < 39. 
K, the number of digits to be printed in the 
fractional part of the number 1 < K < 20. 
J119 converts to and prints in decimal N consecutive words 
of HSS beginning with A. All numbers must be scaled the same 
in a block, and the same number of digits are converted in the 
fractional part for the block. A space is left between the 
integral and fractional parts of the number denoting the 
decimal point and the minus sign ((D) when appropriate, is 
printed at the left in the 10 13 position. Since K can never 
be less than 1, a number with a Q of 39 will appear as 
XXXXX and a number with a Q of zero will appear as XXXX . . 
Conversion of the decimal part terminates as soon as the 
quotient of a division by ten is zero so that one digit integers 
appear as X 0, two digit integers XX 0, etc. 
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Region C - 59 words 

Region 1-11 words 

Program available as J119B,E 

Speed: For Integers equal to or less than 4 digits - 900 lines/min. 
For integers greater than k digits - 600 lines/min. 
For fractional numbers with K = 10 possibly 600 lines/min. 
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JOHNNIAC BLOCK TRANSFER TO AND PROM DRUM 
J120 transfers any block of Information from 1 to 4096 
words In length to or from HSS from or to any one position 
of the drum. One position of the drum is considered to be 
numbered with addresses 0000(1)7777 octal. "Stepping over" 
bands is done automatically. The calling sequence is. as 
follows: 

RA a TRL XXX (Arbitrary Symbol) 

Op. OpO y 

000 f 000 000 

Control returns here 

fwD if transferring from HSS to drum 
" \RD if transferring from drum to HSS 

- first HSS loc. 
« last HSS loc. 
« drum position (0,1, or 2) 

- first drum address of position p. 

[if b is the band and a the band address for starting, then 
f « (2000)g • b + a.] 

It is assumed that y > 3 and that f + (y-p) < (7777)8* 
If the latter does not hold, Information will be written 
(read) up to the end of position p and then starting from 
the beginning of position p. 
Reg. A (erasable) - 3 words, seq. 000,001,002 
Reg. C - 30 words 
Program available as J120B,£" 



a 

a+1 • 
a+2 

a+3 

where Op 
. P 

y 

p 

f 
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S^£. J" 149 
J121B JOHNNIAC BLOCK TRANSFER TO AND PROM DRUM WITH TALLY 

J121 is a "fancy" version of J120. The calling sequence 

is as follows : 

a RA a TRL XXX (Arbitrary Symbol) 

a+1 Op. p OpO y 

a+2 000 f 000 / ■ 

a+3 Controls returns either left or right. (See 

below.) 

whp „ A ft _ fWD if transferring from HSS to drum 
r up jjyj lf tran8ferrlng . frora drum to HSS 

p « first HSS loc. 
y m last HSS loc. 
p m drum position (0, 1, or 2) 
f » first drum address of position p 
i ■ last drum address of position p allowable. 
J121 does not assume y > 0. However, if p > y, then f > t 
must also hold. In this case, the interval [y, p] in HSS 
is stored on the drum so that contents of p go to f , contents 
p-1 go to f-1, etc. 

The purpose of I is to provide a check against writing 
over good information or going past the end of the position. 
If the interval [f,i] (or [i, f ] ) is smaller than [p,y] 
(or [y, p]), then reading or writing will not occur and con- 
trol returns to the left command of a+3. Otherwise, control 
returns to the right command of a+3 with the left address 
part of the accumulator containing the next available drum 
address, f*, i.e. 

f * - f + (y-P)+1 lf 7 > P 
- f + (y-P)-I if p > y. 
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Thus by using an SAL a+2 instruction on returning, C(a+2) 
acts as an automatic tally on available drum locations . 

Note that when storing successive blocks on the drum 
with 3 > y, the blocks are stored, in reverse order of their 
generation. However one-word blocks (p »y) are always 
stored in ascending order. 

Reg. A (erasable) - 5 words, seq. 000, 001* 002, 003* 004. 
Reg. C. - 47 words 

Program available as J121B. 
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J" J22-A TIX3A 
LOADERS FOR STYLE B CARDS 

The first few weeks of heavy usage of J101A and J108A 
(Style B loaders) turned up a few malfunctions in them. 
Corrections have been made in these loaders, and we have 
two new loaders for Style B cards. J122A' replaces J101A 
and J123A replaces J108A, J101A and J108A now being obsolete 
Noimew writeup will be made for J122A and J123A. The 
writeups for J122A and J123A are the same as the writeups 
on J101A and J108A, respectively, with the following excep- 
tions: 

(1) Neither J122A nor J123A check check sums. Thus 
there are no check sum stops. However, the loaders do 
look for a negative right half nine's row (punch in column 
kl) in the program cards. 

(2) On page 3 of the J101A writeup the following 
corrections should be made: 

Paragraph (5), Line 2: 

Should read: "a card with a punch in column 80 in the 

9's row ..." 
Paragraph (5), Line 7 : 

Should read: "punch in column 80." 



J126B SOLUTION OP A SYSTEM OP ORDINARY DIFFERENTIAL 
TIME EQUATIONS 

J126 solves a set of differential equations with the 
following call sequence : 

a RA a TRL (XXX) [any symbol] 
a+1 000 m 000 d 
where m is a scaling constant and d is the location or 
symbol of the first word of the auxiliary subroutine. 

The following library region bases must be designated 
before input of this subroutine in the following manner: 
Region Contents Use 

D a The numbers in a+i are the variables y, 

(i«0, . .., n-l). Originally the initial 
values are placed here. 
E b-a The numbers in b+i are the scaled 

derivatives, 2*%$*, calculated by the 
auxiliary subroutine, b > a+n-1. 
P c-b Locations c+i are used as temporary stor- 
age for this subroutine . These locations 
must be cleared to zero before this sub- 
routine is entered for the first time. 
c > b+n-1. 
c+n n Is the number of differential equations 

to be solved. 
Region 1 (erasable) 4 words 
Region 3 (6o)g - (^)i words 
Duration: T » 6.7+n (19*9 + .1 m) + 4t ms. 

where T - time in milliseconds to perform one step 
of integration. 
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t - time in milliseconds for the auxiliary 
subroutine . 

Description 

This subroutine will handle a set of n simultaneous 
firBt order ordinary differential equations, in which each 
derivative is expressed explicitly in terms of the variables 



y 



f (y 0' y i' •" y n-l> 



y l " f l ( y 0' y l' *•- y n-l> 

y n-l " f n-l (y 0' y l"*" y n-l ) - 
Any differential equation or set of differential equations 

to be solved must first be expressed in the above form be- 
fore this subroutine can be applied. For example, the second 
order differential equation 



y" - w y 



must be written as two first order differential equations 

y© " vr ? 1 y{ * wy 

where y 1 » y and y Q ■ y'/w. 

Each time this subroutine is called into. use, it will carry 
out one integration step of length h. Each of the integrals 
y ± (i - 0, 1, 2,...,n-l) is replaced by its value at the end 
of a step of length h. In doing so, this subroutine employs 
an auxiliary closed subroutine which evaluates the functions 

f 0* f l' f 2'**" f n-l from the given values of y.. The coder 
must write this auxiliary subroutine for his individual 
problem since it defines the equations being solved and this 
depends entirely on his specific problem. 

The purpose of the auxiliary subroutine is to calculate 
and store in locations b + l, (i - 0, 1, 2,...,n-l), the 
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quantities hf^ multiplied by a suitable scale factor 2 m . 
h is the increment of the independent variable and m is a 
positive integer to be chosen as large as possible without 
having any of the quantities 2 m hf . exceed capacity anywhere 
throughout the range of Integration. The factor 2 m is intro- 
duced to increase the accuracy of the integration subroutine. 
The variables, y^, must all be scaled so that they are less 
than one throughout the range of integration before they 
are used in the auxiliary subroutine. Also for maximum 
accuraoy, one should store ^"h Instead of just h. This 
auxiliary subroutine must be located in a sequence of loca- 
tions beginning with location d. In integrating over one 
step, the Integration subroutine will call in the auxiliary 
subroutine four times. 

This integration subroutine requires 3n arbitrary stor- 
age locations. The n consecutive locations a + i, 
(i » 0, 1, 2,..., n-l; a arbitrary), are used to store the 
variables y^. It is in these locations that the initial 
values are to be placed. It is also in these locations that 
the final results are found. The n consecutive locations 
b + i, (l m o, 1, 2, ...,n-l ; b > a + n-l), are used to 
store the scaled derivatives, 2 m h' (« 2 m hf 1 ), which are cal- 
culated by the auxiliary subroutine. The n consecutive 
locations c + i (i « 0, 1, 2,..., n-l ; c > b + n-l) are used 
for temporary storage by the integration subroutine. These 
locations will hold the quantities 2 m q.. The numbers left 
in these locations at the end of an integration step are 
3-2 m times the roundoff errors of the quantities y,. These 
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numbers are taken into account during the following step 
and serve to prevent the rapid accumulation of roundoff 
errors. As a result the effective numerical accuracy Is 
m digits more than the capacity of the storage locations. 
Therefore, it Is important that the locations c+i, (i » 0, 
l,2,...,n-l) be cleared to zero before the integration sub- 
routine is entered. Otherwise, this integration subroutine 
will add spurious corrections to the variables. Thus before 
the integration subroutine can be entered, the main routine 
must clear the temporary storage locations c + I to zero and 
set the initial values of the variables y^^ in locations a + i. 

Summary 

Supposing that, in the course of his routine, a coder 
has to solve a set of differential equations over a specified 
range given the initial value of the independent variable, 
a possible procedure would be the following: 

(1) Reduce the given set of differential equations 

to a set of n first order differential equations. 

(2) Calculate the initial values of the dependent vari- 
ables, y^. 

(3) Scale all the functions so that all the values y ± 
are less than one throughout the range of inte- 
gration. 

(4) Choose a proper value of h (see note I). 

(5) Chose m properly. 

(6) Determine the parameters to be assigned D-Q, ob- 
serving that a < b < c. 



J126Bj £ 
P. 5 



(7) Write an auxiliary subroutine which evaluates the 
functions Z^f. and stores them in locations b + i. 

(8) Make certain that the main routine sets the scaled 
initial values in locations a + i, and clears the 
temporary Btorage locations c + i to zero before 
the integration subroutine is entered. 

With respect to the solution of a set of differential 
equations, a program can be broken up into three parts: 

(1) The main routine, 

(2) The integration subroutine (Code J126) 

(3) The auxiliary subroutine. 

The Independent Variable 

If the independent variable x occurs in the functions 
f^ or if it is required during an integration as an index, 
then it may be obtained by integrating the equation x' - 1. 
The independent variable x is then treated as an addi- 
tional dependent variable, for which the auxiliary subroutine 
has to provide the quantity 2 m hx l » 2^. However, this 
latter quantity may be planted at the beginning of the inte- 
gration in the appropriate location (e.g. in location b) and 
left there, so that the auxiliary subroutine is relieved of 
the task. If the independent variable does not appear in 
any of the f^s but is merely wanted for indication purposes, 
it is quicker to use a simple counter in the main routine. 

Note 8 

I) Accuracy: The truncation error in one step is of 
the order of h^. Ordinarily, that is for a small 
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set of well-behaved equations, its magnitude is 

about 10~ 2 h**j for large sets or difficult equations 

it may be greater. Over the range of integration 

this error will amount to about h /100. Roundoff 

errors accumulate at a rate corresponding to the 

keeping of (39 + m) binary digits. The choice of 

the length of the increment h is governed largely 

by the accuracy desired . An increase in the length 

of h will result in a decrease in accuracy and 

in operating time. Likewise, a decrease in the 

length of h will result in an increase in both 

accuracy and operating time. However, no further 

increase in accuracy can be gained by choosing 

g 
h < 2 because of the introduced truncation error. 

But, if the functions are very sensitive to vari- 
ations in y , or if the number of equations is very 
large, smaller steps will probably be necessary 
with, of course, a corresponding Increase in the 
time required. Now, the process used in the inte- 
gration subroutine is a fourth order one. Thus, 
1/15 of the following difference, 

(the value of y calculated using an interval, 
of length h) 
-(the value of y calculated using an interval 
of length 2h) 
is an approximation of the error. 
II) Adjustment of the increment h: There exist essen- 
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tially two ways of adjusting the Increment 
a) One may double or halve the increment by vary- 
ing the value of m in the main routine. This 
may be done over the complete range of inte- 
gration or Just over part of it. When only 
the parameter m in the link between the 
main routine and the auxiliary subroutine is 
changed to m+1 and the auxiliary subroutine 
is unaltered, the length of the increment is 
halved. Likewise, when only the parameter m 
is changed to m-1 the length of the increment 
is doubled. The auxiliary subroutine is not 
altered since 2 m h - 2 nH " 1 h/2. If one adjusts 
the increment over the complete range, adjust- 
ing only the value of m is sufficient. 
However, if one wishes to adjust the length 
of the increment within the range of inte- 
gration, one must also adjust all the quanti- 
ties in locations c + i. Otherwise, one will 
introduce roundoff errors in y^^ of the mag- 
nitude , 

2 (old value of h - new value of h) 
x 2-*°. 
Now by also doubling the quantities in c + I 
when one halves the increment one will intro- 
duce no roundoff error. Similarly, by halving 
the quantities in c + i when one doubles the 
length of the increment, one will introduce 
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no roundoff error. If one clears the loca- 
tions c + i, one Introduces roundoff errors 
of magnitude 2 . 
b) One may alter the length of the Increment in 
any ratio by adjusting the scaling factor 
2 m h in the auxiliary subroutine. Here also 
one may adjust the length of the Increment 
within the range of integration. Now It is 
not necessary to adjust the quantities in 
c + i. if, however, 2 ra h becomes small, then 
roundoff errors are introduced by inaccuracies 
In the auxiliary subroutine . Thus one should 
not keep 2% small when integrating over large 
ranges unless the loss of accuracy and time 
does not matter. 
Ill) Often it is desired to evaluate functions involv- 
ing expressions like sin x or J„(x). These ex- 

m 

pressions can be evaluated by solving extra dis- 
tinct differential equations along with the desired 
ones. For example, 

d 2 /dx 2 (sin x)/2 - -(sin x )/2. 
Thus we can evaluate (sin x)/2 by using the extra 
pair of equations 

K + i - 2 X yA ° -^n+i 

and suitable initial conditions. 
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Method Used for Integration In the Routine 
Given a set of differential equations, 

y i " f i ( y 0' y l' y 2 ,,,,iy n-l)' f 1 * °' 1 ' 2 ' •••' n ~ 1 ) 
the process used in the integration is defined by the follow- 
ing equations 

r i'J+l " (A j + l +1) (k i,J " B j q i, i ] 
y i,j + l- y i,J +2 " mr i,J + l 
%,J + 1 - «ij + 3r lfJ + (0,-1) k liJ+1 
with the following table of values 



J 


Vl B J 


C J 





-1/2 2 


1/2 


1 


-d/2) 1/2 1 


(1/2) 1/2 


2 


(l/2) 1/2 1 


-(l/2) 1/2 


3 


-5/6 2 


1/2 



Of the double subscripts used in the above equations, the 
first subscript, i, indicates which variable is being con- 
sidered, and the second subscript, J, indicate which of the 
four parts of one step is being performed. The auxiliary 
subroutine evaluates the quantities k 4 4 . In the above 
equations, only the quantities q. ^ and y, ^ are carried 
over from step to step. The quantities r A < are calculated 
in the course of one step; they are not carried directly 
from step to step. When J « 4, we replace it by zero, in- 
crease i by 1, and terminate the step. 

For one step, the sequence of operations is as follows: 
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J - 


I - 0, 


1, 


2, . . . , n-1 


J - 1 


1-0, 


1, 


2, . . . ,n-l 


J » 2 


i « 0, 


1, 


2, . . . ,n-l 


j *= 3 


i « 0, 


1, 


2, . . . ,n-l 
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J127B ARCTANGENT X 
SIDE 

Arctangent X (in radians) is developed in MQ. 

Range: -1 < X < 1. 

The routine is entered with X in MQ. 
Calling sequence: 

a 020 a 010 XXX 

a+1 Control returns here 
Region 1 (erasable) - "3 words 
Region 3-28 words 
Arctangents correct to 11 decimal places, assuming an exact 

argument . 
Program available as J127B,E. 
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J128B,E punch decimal cards 

J128 punches one decimal card containing 6 twelve -place 
fields and a three-digit sequence number. 
Calling sequence: 

a 020 a 010 XXX 

a+1 SEQ 

1-6 7-19 20-27 28-39 

a+2 k.^ q x 1^ 

a+3 k 2 p 2 q 2 L 2 

a+4 k 3 p 3 q 3 — L 3 

a+5 k^p^ q^ L^ 

a+6 k^p 5 q^ L^ 

« + 7 k 6 p 6 % — L 6 
a+8 Control returns here 



where : 



(in 3ign position) if p and q positlvef*- 

k ■ { 
1 \l (if the negative values of p ± and q^ are to be used) 

positive «= number of decimal digits to the left of 
the decimal point. 
p i J negative «. number of lead zeros desired to be between 

the decimal point and the first digit of 
the word in memory. 

( positive » number of positions right from 2° (ex- 
\ eluding 20) to binary point. 

q i negative = number of positions left from 2° (ex- 

^» eluding 20) where binary point is assumed 

to be. 

L. = location of the i th number. 



continued 



J128B 
-2- 



The punched card form is: 



Column 




1 


blank 


2-4 


sequence number 


5-l6 


1st number 


17-28 


2nd number 


29-40 


3rd number 


41-44 


blank 


45-56 


4th number 


57-68 


5th number 


69-80 


6th number 



If p. and q. are positive field, i contains 11 digits 
and a decimal point after the integer part of the number. 

If p. and q. are negative, the absolute value of p. is 
punched in the first column of the field followed by 11 digits 

An 11 is overpunched in the 12th column of the field 
for negative numbers. No punch is used to designate positive 
numbers . 

If any cell in a+2 through a+7 is left blank (zero) , the 
corresponding field on the card will be blank. 

Program length: Region 1 (erasable) - 30 words 

Region 3 - 170 words 

No program stops. 

Timing: Cards will be punched at half -speed with a reason- 
able amount of manipulation between entering of the 
program . 

Program available as J128B,E 



J129B,E CARD IMAGE TO CHARACTERS 

J129 will convert a card Image In storage at D - D 23 
in 9L, 9R, 8L, ...» 12R order to 80 words in E 1 - E 80 
one character per word corresponding to the columns of the 
card image. The character code is the sum of the values of 
the punches for the character. A "12" • 16, "11" « 32, 
"0" ■ 48 and numeric 1-9 ■ 1-9 respectively. All "legal" 
characters of the key punch will be converted to unique 
character codes. 

The routine is designed for "legal" characters only. The 
card image is clobbered in the conversion process. 

Calling sequence : a RA a TRL XXX 

a+1 Control returns here 

Program storage: C - C 51 program 

D - D 23 card image 
E 1 - E 80 characters 

Timing: Approx. 135 ms. 

No program stops. 

Program available as J129B,E 



ti322 DECIMAL LOADER 
J130E 

J130 is a decimal loader with the following calling 

sequence : 

a 020 a 010 XXX 
a+1 00a 0000 000 c 
ot+2 Control returns here 

where a «» JO if primary feed of card reader used 
Ll if secondary " 

c - starting location (absolute or relative) 

The program reads declmaj cards starting each card with 

column 5 [cols. l(l)4 are for I.D. and are ignored], and 

proceeding to the right, converting and storing numbers, 

until a blank column is encountered, which causes the next 

card to be read, or an end of file 12 punch in col. 80 is 

encountered. 

The program will store the numbers in the starting location 
and succeeding locations unless it hits a specified location 
on a card indicated by L followed by the location number. 
At this time it will store the number following in the 
specified location and proceed as before with the new loca- 
tion as a starting location. The numbers to be loaded must 
be punched in the cards in the following form: 

L c (-N X /pP)+Q 
where ( ■> 11, 4, 8 punch 
and ) « 12, 4, 8 punch 

(continued) 
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and 

c = location In which to store the number following. 
Thl3 will always be preceded by the symbol L. 
Absence of L and location will result in the number 
being stored in (location of preceding number) +1. 

N = number to be converted and stored (mu3t include a 
decimal point and be p. eceded by a sign). N 
limited to eleven decimal digits. Q 9 decimal 
dlglt3 if floating point numbers/] 

xp or /p » These are optional. If absent, N will be 

handled a3 it appears in the card, xp will cause 
N to be multiplied by 10 p . /p will cause N to be 
divided by 10P. < p < 18. 

F « F punched at this point will cause the number to 
be converted into the floating point form (power 
+ 50 and magnitude), described in J102. 

2~ q is the scale factor. -8 < q < 39. 

A plus sign is a 12 punch and a minus sign an 11 punch. 
For example, a program entered with calling sequence: 

a 020 a 010 XX (arbitrary symbol) 
a+1 000 0000 000 100 

and first card punched (starting in col. 5) as follows: 

(+325 . 14)+15 ( -2 . 935x4)+22 

L2O0(-5.629Ol/3)-6(+.0O04F) 
(+1.56o4x2F) 

will result In 

+325.l4x2~ 15 being 
-29350x2" 22 
-.00562901x2 6 " 
+47 ^00000000 " 
+53 156040000 " 

f3.(088) 10/ 
Program stop at 1 3. (130) ' when a card wlthout a punch in 

column 5 is encountered. 

Region 1 (erasable)--(46) 10 words 

Region 3 -- (31^) 10 words 

Program available as J130B 

J130E 

Marvin Shapiro 



a fraction 


in 


100 


11 M 


n 


101 


11 11 


11 


200 


an integer 


11 


201 


M II 


it 


202 



J131B DECIMAL DATA INPUT 
J"/3l B 

J131 will convert and store in consecutive locations of 
H.S.S., decimal numbers, one per card at full speed from the 
primary feed. The first location is specified in the calling 
sequence and there is no limit to the number of cards to be 
read. The scaling of each number is specified, in each card 
by p and q, where p is the location of the decimal point 
counting right from the sign position (but not Including the 
sign position) and q is the location of the binary point 
counting right from the zero-th bit (not including the 
zero-th bit). Fractional binary representations are trun- 
cated in absolute value. This routine will not input -1 x 2°. 

Card form: 

Col. 25 26-36 37-38 39-1*0 
3ign number p q 
< p < 11 < q < 99 

Example j 

Col. 25 26-36 37-38 39-^0 
- Q0326947300 04 07 

Zeros and blanks are interchangeable. An 11-punch in 
col. 25 is a minus sign and a 12 -punch or blank is a plus 
sign. Reading is terminated when a 12 -punch in column 80 
is read. The remaining columns of the card may contain any 
other information desired. 

(continued) 
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Calling sequence: 

LOC OP ADDR OP ADDR 

a RA a TRL XXX (Arbitrary symbol) 

a+1 YYY (1st location in H.S.S.) 

a+2 Control returns here 

Program stop: (3.0l4o)g wrong q for given p. Program 
will not continue. 

Program length: 

Region 3: (131) 10 words: (3.0000 - 3.0202) g 
Region 1: (l6) 10 words: (1.0000 - 1.0017)q 

Program available as J131B. 

J13JE. 
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J132B PRESET OR RESET ROUTINE 

J132 sets any number of specified addresses to specified 
values. Its primary intended use is in connection with J133- 

Calling Sequence : 

a RA a TRL XXX 
a+1 OOk^ A x 000 B 1 



a+i 00^ A ± 000 B ± 



a+p 00k A 000 B 



a+p+1 100 0000 Control returns here 
If k. = 0, k ± will be stored in the left address of the word in B^ 

If ^ - L B i " " " " " right " " " " " A 1 , 

Program length: 9 words — all in region 3 
Program available: J132B,E 
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J133B PSEUDO B-BOX 

J133 provides for a rudimentary form of internally pro- 
grammed B-Boxes. It will successively add (or subtract) 
specified increments to specified addresses, allowing for 
intermediate calculations using the transformed words, and 
will control the number of repetitions of this process. 



Calling Sequence : 






a 


RA a 


TRL 


XXX 


a+1 






n 


a+2 


OOk^ A 1 


000 


B l 



a+i+1 00k. A, 000 B, 
i i i 



a+p+1 100 C 000 D 
'k ± « 6] ( A, 



If I k - it then 1 B 1 / w111 be added (modulo 2 12 ) to the 

/left\ ± J M 

\ right/ address of the word in [ A };n-l will be stored in 

a+1, and if the result is > 1 control will go to the left of 
D while if it is < 1 control will go to the left of C. 

Suggested Use : 

Have a routine, S, containing the words whose addresses 
are to be modified, which exits to the left of a. Have the 
variable addresses set to their desired initial values -- the 
values for the first execution of S — by use of J132. Let 



J133B, £ 
-2- 



D * the entry point of S (it is required that S be enterable 
on the left). Let n ■ the desired number, of executions of S, 
Transfer control to the entry of S. 

Then control will eventually proceed to the left of C, 
S having been executed exactly n times, with the required 
address modifications, a+1 will contain a zero and the vari- 
able addresses of S will be set up for an (n+l)st execution. 

Caution ; If the process is begun by transferring to a, 
the first execution o£ S will not take place until after one 
address modification and there will be only n-1 executions 
of S. 

S may itself contain call sequences using J133. 

Program length: 17 words - all in region 3. 
Program available : J133B ; E 
No program stops. 
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J13^A SYMBOLIC RELATIVE ASSEMBLY 

J13^A has the same features as JIOOA with the following 
exception. If no RDOR card is put in for a region in the 
decimal deck, the binary equivalent of the decimal region 
will be used as the origin for this region. Thus there is 
no 1234 stop with J134A. 



Jule3 I. Schwartz 
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X267 

REVISED STYLE E LOADER TO REPLACE J136 

I'd like to have your assistance In checking out this new style E 
loader by your using an interim version (X267) for a few days to 
see if any bugs develop or if any desirable changes are suggested 
before the routine is placed in the library under its ultimate 
identification (J267). 

The new loader is roughly campatible with JI36 but the following 
differences should be understood before using it: 

1. The new loader occupies 100 words more than JI36 for a total 
of 600 words (0000-0599). 

2. The permitted symbolic locations and addresses are again * 
thru •* 99 but only 100 forward symbolic references are allowed 
instead of 155. 

3. There is no longer a restriction against using a forward 
symbolic reference in words being loaded into absolute or 
relative locations , 

4. The initial condition of the counter ($) is 600, (1130)g. 

5. It is no longer necessary to put in a redundant comma card at 
the beginning of a deck just to clean up the tables. The initial 
condition of the new loader is such that it is ready to load 

the first routine. 

6. Certain kinds of errors are detected by the new loader and 
corresponding error messages are typed out on the printer. The 
left half of the current card is always printed out as part of 
the message except in the event of more than one error message 
for that card in which case the card is printed only with the 
first message. The error message pertains to the card which is 
printed except for undefined symbolic addresses . Here a comma 
card is printed out to identify the routine in which the 
undefined symbols occurred. A full-table error message occurs 
when the 101st forward symbolic reference is encountered. A 
"CLOBBERED" error message occurs when an attempt is made to 
use the counter to load beyond the end of memory or anywhere 

in the loader area. Both of these error types end in drop dead 
halts. The other error messages for ambiguous symbols, unde- 
fined symbols, undefined characters, and scaling errors are 
followed by setting an error flag in the loader but the loading 
process continues to edit the deck for other errors, when the 
period card is encountered (period in C36 that is) if the error 
flag has been set the loader will drop dead. 

7. The new loader v/ill clean up (substitute and initialize) only 
on a comma card. The period card now causes a transfer 
directly to the period cell without a clean up. The initial 
condition of the period cell Is a drop' dead halt. 
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8. Style F binary cards with no ID can be called for in two ways: 

LOCN OPN ADDR OPN ( ADDR 
( aaaa l bbbb ) 

Such a card will cause the punching of style P binaries to 
cover the range aaaa thru bbbb. The aaaa and bbbb parameters 
must be explicit — that is, they cannot be forward symbolic 
references . 

LOCN OPN ADDR OPN ADDR 
( ( 

Such a card will set the beginning of range parameter to $000. 

LOCN OPN ADDR OPN ADDR 
) ) 

Such a card will set the end of range parameter to $000 less 
one and will then cause the punching of style P binaries 
from the beginning of range thru the end of range. Note that 
it is now simple to punch out routines individually or in 
a block but that the resulting binaries will not in general 
include the directory which should be punched explicitly 
as in the following example: 

LOCN OPN ADDR OPN ADDR 
( =0 =13) 

Obviously one should not insert such a card between a pair of 
double -parenthesis cards. 

Punching will be suppressed if the error flag has been set. 

9. Data input is the same as in JI36. Floating point numbers 
intended for the Johnniac floating point system must be punched 
with the decimal point (which separates the translated exponent 
from the significant digits) in C21. C18 must be punched + 
("12" punch) or - ('"11" punch). 

LOCN OPN ADDR OPN ADDR 

-5-52 . 123456000 +12 . 3^56 

-47 . 123456789 - .000123456789 

+53.123 +123- 

-59. 123 -123. (unnormalized 

Fixed point data is recognized by the binary scaling punched 
in the right address field. Call it b. The limits are thru 
40 for b. The number times two to the minus b rounded to 
Johnniac word size must be a proper fraction. A scaling error 
message will be printed if this is not the case or if b is 
greater than 40. 
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LOCN OPN ADDR OPN ADDR 

+123456789012 39 

-.12345678901 

+ 123 39 

123. 39 

+ 123 39 

- 123.45678 7 



+123456789012 x 
-.12345678901 x 
+ 123 x 
123 x 
+ 1230 x 
-123.45678 x 2 



>-39 

;o 

;-39 
J-39 
;-39 

-7 



REVISED STYLE E LOADER TO REPLACE Jl 36 J. C. Shaw 1-33-58 

I'd like to have your assistance in checking out this new style E loader 
by your using an interim version (X2;?7) for a few days to see if any 
bugs develop or if any desirable changes are suggested before the 
routine is placed in the library under its ultimate identification (Jin), 

The new loader is roughly compatible with JI36 but the following 
differences should be understood before using its 

1. The new loader occupies 100 words more than JI36 for a total of 600 
vords (0000-0599)o 

2 o The permitted symbolic locations and addresses are again -a- thru 
* 99 but only lOOf orward symbolic references are allowed instead of 
l55o 

3. There is no longer a restriction against using a forward symbolic 
reference in words being loaded into absolute or relative locations. 

ko The initial condition of the counter (&) is 600, (1130)30 

5. It is no longer necessary to put in a redundant comma card at 

the beginning of a deck just to clean up the tables „ The initial 
caidition of the new loader is such that it is ready to load the 
first routine o 

6 Certain kinds of errors are detected by the new loader and 

corresponding error massages are typed out on the printer. The 
left half of the current card is always printed out as part of 
the message except in the event of more than one error message 
for that card in which case the card is printed only with the 
first messageo The error message pertains to the card which is 
printed except for undefined symbolic addresses. Here the comma 
card is printed out to identify the routine in which the undefined 
symbols occurredo A full-table error message occurs when the 
101st forward symbolic reference is encountered. A "CLOBBERED" 
error message occurs when an attempt is made to use the counter 
to load beyond the end of memory or anywhere in the loader area. 
Both of these error types end in drop dead halts. 'The other 
error messages for ambiguous symbols, undefined symbols, undefined 
characters, and scaling errors are followed by setting an error 
flag in the loader but the loading process continues to edit the 
deck for other errors. When the period card is encountered (period 
in C36 that is) if the error flag has been set the loader will 
drop dead. 

7o The new loader toll clean up (substitute and initialize^ only on a 
comma card. The period card now causes a transfer directly to 
the period cell without a clean up. The initial condition of 
the period cell is a drop dead halto 

80 Style F binary cards vith no ID can be called for in MS two ways: 

LOCN OPN ADDR OPN ADDR 
( aaaa bbbb) 
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Such a card will cause /the punching of style F binaries to 
cover the range aaaa thru bbbb„ The aaaa and bbbb parameters 
must be explicit — that' is they cannot be forward symbolic 
references o 

LOCN OPN ADDR OPN; ADDR 
( ( 

Such a card will set. the beginning of range parameter to $000 a 

LOCN OPN ADDR OPN ADDR 
) \ ) 

Such a card will set the, end of range parameter to $000 less 
one and will then cause the punching of style F binaries 
from the beginning of range thru the end of range » Note that 
it is now simple to punch out routines individually or in 
a block but that the resulting binaries will not in general 
include the directory which should be punchedSX explicitly 
as in the following example: 

LOCN OPN ADDR OPN ADDR 
( - - 13) 

Obviously one should not insert such a card between a pair of 
double parenthesis cardso 

Punching will be suppressed if the error flag has been set* 

9» Data input is the same as in J136. Floating point numbers intended 
for the Johnniac floating point system must be punched with the 
decimal point( which separates the translated exponent from the 
significant digits) in C21 a CI 8 must be punched + ("12" punch) or 
- ("11" punch). 

LOCN OPN ADDR OPN ADDR 

+52 .12 3^56000 +12„3U56 

-U7ol23U$6789 -,O0O123h56789 

+53.12,3 +123. 

-59 • ' ' 123 -123. (unnormalized) 



Fixed point data is recognized by the binary scaling punched in the 
right address field. Call it b. The limits are thru 1|0 for b. 
The number times .'two to the minus b rounded to Johnniac word size 
must be a proper, fraction,, A scaling error message will be printed 
if this is not the case or if b is greater than 1*0, 

LOCN OPN ADDR OPN ADDR 

+123U56789012 39 +123U56789012 x 2: 39 

-ol23U5678901 -.123U5678901 x 2° 

.'♦ 123 39 + 123 x 2~iZ 

123« 39 - 123 x 2~ 3y 

* 123 39 * 1230 x 2"39 

- : 123oh5678 ? -123,145678 x 2" 7 
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J135A LOADER FOR STYLE P ABSOLUTE BINARY CARDS 

J135 is a one -card self-loading routine which loads 
Style F absolute binary cards from the primary feed. After 
bootstrapping its way into HSS the routine selects the 
primary feed and executes the control instruction which is 
punched in C 20 _ 2t0 of the 9 row of the Incoming card with the 
information word in C^ 1 _ 8o of the 9 row in the accumulator. 
C 20 40 w111 usually contain a store instruction. The routine 
then processes the 8, 7, ..., 12 row in the same way unless 
control is taken away from J135 by a transfer instruction in 

4o of some row# If the contro1 ren *ains in J1 35 after 
processing all rows of the incoming card, then the routine 
will select the primary feed for another card and continue. 
The MQ is used by J135 to count the 12 rows.^ 

After bootstrapping into HSS, J135 looks like: 

(in octal) 



LOCN OPN ADDR OPN ADDR 



Lt5<) i~ 






0001 100 0000 004 0005 l se - L ' ° 

0002 101 0003 014 0003 1 tP>' 3 TKZ'^ 

0003 3 -A**'* tT% o 

0004 075 0117 002 0002 ,. . M _ c.t_n ,\\n TU*" - , 

0005 010 0001 000 4000 ,..- .; -j-^i. i $%? ^" 
Storage: 0001-0005 

No error stops 

Program available as J135A. 

It is interesting to note that although J135 is a self-loader, 

it carries identification, and further that* the J135 card itself 

is in style F. 



J.C. Shaw 
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J136A LOADER FOR STYLE E PROGRAM AND DATA CARDS 

J136 Is a self-loading routine which loads Style E program 
and data cards. The loader loads instructions with absolute, 
relative, and symbolic locations and addresses in either octal 
or decimal. Operation codes must be in octal. Data words of 
two forms are accepted : fixed point decimal data punched with 
decimal point and a specified binary scale factor, and floating 
decimal data of the form used by J102. 

The principle of the loader is straightforward: convert 
the location, convert and store the word to be loaded, continue 
this process with the other words of the routine to be loaded 
until the end of a routine is indicated by a punch in C^g at 
which time sweep back over the routine just loaded filling in 
absolute equivalents for symbolic addresses which were undefined 
when first encountered, wipe out the Symbol Table in prepara- 
tion for another routine, then begin loading the next routine 
or begin execution according to the punch in CUg. 

Locations and addresses are four character fields and will 
be converted base ten unless prefixed by a fifth character (by 
convention a comma) to indicate base eight. Blank columns are 
everywhere numerically equivalent to zeros but logically dis- 
tinct from zeros. Relative locations and addresses consist of 
a character ( A through Z, #, $) followed by a three-digit 
number. When a relative location or address is converted its 
absolute equivalent is formed by adding to the three-digit 
number the contents of the cell reserved for the character by 
the loader. A character is "defined" by loading a non-negative 
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integer < 4096 into the cell reserved for the character. If 
at conversion time the character part of a relative location or 
address is still undefined (as indicated by a negative number in 
the cell reserved for the character) the loader will halt. A 
character may be redefined at any time in the loading process 
by loading the new number into the cell reserved for the char- 
acter. 

The initial condition of the loader allows for 100 symbols] 
(* through * 99) but this number may be changed at will by_J 
the programmer. A symbolic location or address consists of an 
asterisk followed by a three-digit number. One word is allowed 
for each symbol in the Symbol Table. When a symbolic location 
is encountered the loader verifies that the symbol has not pre- 
viously been defined, then defines the symbol by storing the 
value of a counter (cell 43 corresponding to the character "$") 
in the Symbol Table. The loader prepares to store the word to 
be loaded in the cell indicated by the counter, converts the 
word, advances the counter by one and stores the word. When a 
blank location is encountered the treatment is identical to that 
for a symbolic location except, of course, there is no symbol to 
define. Notice that the counter is automatically advanced only 
for symbolic and blank locations. In converting a symbolic 
address the loader replaces the symbolic address by its absolute 
equivalent if the symbol has been defined, otherwise an entry 
is made in the Forward Reference Table so that when loading of 
the current routine is complete the loader may go back and fill 
in an absolute address for the symbolic address. If the symbolic 
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address is still undefined (as indicated by a negative number 
in the Symbol Table) the loader will halt. 

When C lQ is punched ("12" for +, "11" for - ), the loader 
will interpret the card as containing a data word of the follow- 
ing format: 

C^g contains the sign 

C 19-30 contains the number with decimal point 

or an integer < 2 J . 
C^, ,r is blank for floating decimal numbers or, 
in the case of fixed point numbers, con- 
tains "q" (0 < q < 40) where 2~ q is the 
desired scale factor to apply to the 
number to scale it down to a proper 
fraction for internal use. Floating 
point numbers are converted exactly, 
fixed point numbers are rounded. 
The loader interprets a punch in Cog as indicating the end 
of a routine. The loader fills in absolute addresses for symbolic 
addresses noted in the Forward Reference Table, then it clears 
the Symbol Table to -l's in preparation for another routine and 
finally transfers to the cell corresponding to the punch in CU5. 
If the punch is a comma, the loader will be reentered for load- 
ing another routine. If the punch is a period, JOHNNIAC control 
will pass to cell 27 which according to convention will have 
been loaded with a transfer instruction to the beginning of the 
master routine for the program just loaded. 

J136A is designed for a master routine -subroutine approach 
to a problem with relative addresses for blocks of data, symbolic 
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addresses for Internal references in routines and (by convention) 
a special set of relative addresses using the character "#" for 
links between routines through a directory provided by the pro- 
grammer . 

A small limitation of J136A is that forward reference 
symbolic addresses are not permitted in words having absolute 
or relative locations. 




Timing: Loads at full speed except for cards punched in Cog* 
Storage: - (499) 10 can be varied. 
Program available as: JI36A. 



J. C. Shaw 
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IDENTIF. 



LOCN OPN AODR OPN ADDR 



COMMENTS 



11111 11 1112222222222333333333344444444445555555 555666666666677777777778 
1 234567890123456789012345678901 23456?890123456789012345678901234567§9012345:67890 



SAMPLE 


1000 020 1234 024 


4095 


SAMPLE 


,1750 020*2322 024, 


,7777 


SAMPLE 


A123 020 A123 010 


ft 13 


SAMPLE 


* 35 020 * 50 024 


* 51 


SAMPLE 


S 


1000, 


SAMPLE 


$ 


sioo 


SAMPLE 


$ 


A 


SAMPLE 


A 


2000 


SAMPLE 


A 


$ 


SAMPLE 


# 10 010 $ 014 


$ 


SAMPLE 


&1234. 5678901 


11 


SAMPLE 


-123456789012 


39 


SAMPLE 


&52. 123456789 




SAMPLE 


/. 010 # 1 


• 



ABSOLUTE DECIMAL LOCATION AND ADDRESSES. 

ABSOLUTE OCTAL LOCATION AND ADDRESSES . 

RELATIVE LOCATION. AND ADDRESSES. 

SYMBOLIC LOCATION AND ADDRESSES. 

SET THE COUNTER TO 1000 AND i PRESET TABLE 

SKIP THE COUNTER 100. 

SET THE COUNTER EQUAL TO AOOO. 

SET A EQUAL TO 2000. 

SET A EQUAL TO COUNTER VALUE. 

SET DIRECTORY FOR ROUT I NE: WHICH FOLLOWS. 

FIXED POINT DATA, Q EQUALS 11. 

FIXED POINT DATA, Q EQUALS 39. 

FLOATING POINT DATA FOR J102. 

SET LINK TO ROUTINE, CLEAN UP» KICK OFF, 










^t-« ; '-nJtw^~i •^to--<~ > * 



Ltn- ^uvt-^CrV<r-^t-x_ £_^. 
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J136A PROGRAMMED HALTS 
(in octal) 



NIA IR Reason 



0034 


130 0033 134 0033 


0167 


010 0173 134 0166 


0220 


001 0220 134 0217 


0244 


002 0244 134 0243 


0252 


130 0251 020 


0275 


002 0275 134 0274 



No link to beginning of program. 

Ambiguous symbolic location somewhere 
in the last region, or symbol table 
wasn't preset to -l's. PR,o/o u(6/,Tr 

Too many forward references in the 
current region. 

undefined symbol in left address 
somewhere in last region. PR^oio oi4i-yV& 

Undefined symbol in right address 
somewhere in last region, pp? era- 
Undefined relative location or address 
on last card. ?& } eio oxj> ,*pr 



J137B MANIPULATION OP ARRAYS 
TI31 £ 

J137 la intended for use in manipulating sets of quan- 
tities systematically distributed in the memory. The follow- 
ing definitions are basic: 

An array is a doubly indexed system la^jl of cell ad- 
dresses, such that 

"12 
a. . « a + ai + PJ (modulo. 2 ) 

< i < m 

< J < n - 
An array is completely specified by the quantities a, p, m, 

n and a. By the designator of such an array we shall mean an 

address, A, such that information defining the array is stored 

in A, A+l, A+2 as follows: 

A 000 a 000 p 
A+l 000 m 000 n 
A+2 000 0000 000 a 

J137 allows the manipulation of the contents of arrays ^ ', 
by referring only to their designators. 

J137 will place f (( a i,j)' ( a i,j^ in a i,j* for each 
i,j, where (a. .( and ja£ A are arrays and f(x,y) is an 

arbitrary function. 

Calling Sequence for J137 

RA TRL XXXX 

0+1 000 A 000 A" 

0+2 .(<- W -*) Control returns here. 

XXXX is the first word of J137. A and A' are designators of 



(l) The contents of an array fa. .1 is the doubly indexed set 
of numbers v(a ± >)[. We denote the contents of x by (x), for 
any address x. 
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arrays (a^jjand {a^J. 

W is an instruction of the form TRL YYYY or TRR YYYY. 

YYYY is an address at the left or right (depending on W) 
of which is situated the entry order of a routine, F, which 
computes f(x,y) given x in the accumulator and y in 
2.0000. F must exit to the right of XXXX with f (x,y) in 
the accumulator. 

Note 1 t J137 will not use the m' and n' associated with A' 
but will assume m' » ra and n' = n. There need be no relation 
between a, a', a, a*, 3, p'. 
Note 2 ; Each of the quantities (a. ,) and a' .) will be 



operated upon by P exactly once so that F may compute 

various types of cumulative information, such as V" (a. ,). 

iTJ 
Note 3 « At the time that (a, .) and (b. 4 ) are operated upon 

by P 

m-i is stored in 2.0002 

n-j is stored in 2.0001 
Hence, P may compute the indices of those (a. , ) and/or 
(b. ,) having certain properties. 

Note 4 : P can be made vacuous by having W ■ TRR XXXX. This 
will result in the contents of a' . being replaced by those 
of a, y i.e. the array |(a i ,)> being transferred to ja! A. 
Note 5 : If P uses a subroutine having an erasable region, 
this region must be different from the erasable region of 
J137. For this reason, region 2, rather than region 1, was 
used. 

continued 
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Region 2 - erasable - (see note 5) 6 words 

Region 3 - 37 10 words 

Program Stops: None (except possibly in P) 



Program available as J137B. 



Norman Shapiro 
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J138B MULTIPLICATION OP ARRAYS 

Jl 38 forms the scaled matrix product of two arrays In 
a third array' '. 

Calling Sequence : 

© RA G TRL XXXX 

©+1 000 A 000 A' 

©+2 («- S ->) 000 A" 

©+3 Control returns here, 
where A, AS A" are array designators and S is a shift 
instruction. After execution of J138^ 2 ^. 

J»n 

( & ±,k) m Y 8 < a i,J' a i, k )- 0<l<m 

J-0" 

^ k < n' 

s denotes the effect of the shift operation, S, on the 

double precision product a 4 ,, a, , . 

Notej.: J138 will not use m>, m", or n", but will assume 

m' » n, m" «. m, and n" - n'. 

Note__2: An additive overflow will turn on the overflow 

toggle with control at the right of 3.0041. 

NoteJJ: If the scaling is such that it is preferable to shift 

right and add from the MQ rather than shifting left and adding 

from the accumulator, then change two words of JI38 as follows : 

3.0041 000 0000 RA 2.0005 
3-0042 AQS 2.0005 RA 3.0040 

(continued) 



(1) See the write-up for J137 for terminology. 

(2) Let A designate fa^ A, A' designate jai A, etc. 



Region 1 - erasable - 6 words 
Region 3 - 52 10 words 
Program Stops : See note 2 . 



Program available as J138B 



Norman Shapiro 
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OBSOLETE At 4 

J139A MATRIX INVERSION 

J139A will solve systems of equations and/or invert 
matrices of order n (1 < n < 40) . All arithmetic for this 
routine is carried out in double -precision fixed-point to 
guarantee maximum accuracy. 

The matrix of coefficients and the right-hand side for 
this routine are input in decimal, one per card, having the 
following format : 

Col. Contents 

17-19 j (1 < j < n) j - for the right-hand side 

20-22 1 (1 < i < n) 

24-27 Integral portion of a, 

28-33 Fractional portion of a. 

J 
34 Sign (Blank is +; 1 is minus) 

The remainder of the card may contain any information desired. 

It is not necessary to enter the zero elements of the 
system since HSS is cleared to zero from 610 through 4095 
each time the Input routine is called for. The elements 
may be in any order. Each matrix or system of equations must 
be headed by a single card with the order of the system, n, in 
J and cols. 20-34 blank, and followed by a blank card to 
signify the end of the deck. (This input format is the same 
as the JOHNNIAC simplex code.) 

As many systems of equations to be solve or matrices to 
be inverted as desired may be entered behind the program 
deck, Just so each deck has the proper header card and is 
followed by a blank. Two additional blank cards are necessary 
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at the very end of the deck. 

The following things may be done with J139» 

1) To obtain just the solution to one set of equations 
and no inverse, put HI on. 

2) To obtain the solutions to more than one set of 
equations and no inverses, put Tl on. 

3) The inverse of the matrix is punched in binary for 
later use with Jl4lAj if this is not desired, put T2 on. 

4) The inverse of the matrix is printed row by row; 
if this is not desired put T3 on. (The solution to the 
system of equations is always printed; in the case where no 
right-hand side was entered, an n-order vector of zeros is 
printed. In addition, following the computation of the 
actual Inverse a check vector of order n is printed which 
should be all l's. The difference between 1 and the actual 
values printed is a measure of the accuracy obtained.) 

5) To invert a single matrix, put H2 on; for more than 
one matrix, leave H2 off. 

The deck is put together as follows: J139> header 
card (n in J) coefficients (and right-hand side), a blank, 
header card, etc., two blanks. 

Program Stops : 

NIA « (0055)q* No header card for matrix or i or j 

is greater than n. 

NIA » (0025 )q HI on, System solved. Hit GO to go on 

and invert the matrix if Tl is not on, 
or read in next matrix if Tl is on. 
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NIA « (0152 )q The matrix ia singular or poorly conditioned 
NIA ■ (0317)3 Overflow, rescale the matrix. 
NIA m (0052 )q H2 on, Matrix inverted, hit 00 to read in 

next matrix. 

J139 uses all of HSS and the Drum. 

Program available as J139A. 

Time: The only estimate available is for inverting a 24 order 

matrix — this took roughly three minutes of computing time. 



M. I. Bernstein 
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J140A CLEAR HSS TO ZERO 

Jl40 is a one-card self-loading routine which clears 
HSS to zero and then effectively hits the load button for the 
next card in the primary feed. 

Timing: One second 

Program available as Jl^OA. 



J.C. Shaw 
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Jl4lA INVERSE TIMES VECTORS 

Jl4l will multiply a matrix (as obtained from J139A or 
J143A) onto column vectors of the same order n (1 < n < ho) . 
The vectors are punched one element per card in the same 
format as the inputs for J139A. The elements of a vector do 
not have to be in order on i. The matrix is in binary 
style D. 

Each vector in read in and the product is computed and 
printed before the next vector is read in. In printing the 
product vector, the j which appeared in the last card of 
the vector is the j indicative printed with the product 
vector, j is Ignored in the other vector cards. 

The deck is made up as follows: 

1. J141A 

2. Binary matrix followed by one blank card. 

3. First vector followed by one blank card. 

4. Second vector " " 



k kth vector 



n Last vector followed by one blank card. 
n+1 A "stop" card with i > n and 2 blank cards. 

The product vectors are printed —r- per page where 
[ ~j denotes the greatest integer in, and n the order of the 
system. 

(continued) 
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Program stops : 

NIA » (017^)o an i of the vector being read in is 

greater than n, or the end of the computation. 
Jl4l uses all of HSS. • 
Program available as J141A. 



Morton I. Bernstein 
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J142E PUNCH STYLE P BINARY CARDS 

Jl42 will punch a block of storage from location "a" 
through location "b" in style P ready for reloading. C^g 
are left blank in the cards punched. 

Calling sequence: 020 # 010 # 

000 a 000 b 

Control returns here. 
Program length: 16 words (completely self-contained). 
Highest symbol used: * 23 
No program stops . 
Program available as J142E 
Timing: Punches at full speed, 100 cards per minute. 



J. C. Shaw 



O © 5 o t-HTfe: 
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J143A MATRIX ASSEMBLY o'F<-o / $•» ok> 

J143 assembles a matrix of order n (l < n < ko) into 
binary for use with Jl^lA in place of the binary inverse 
obtained from J139A. 

The inputs for Jl43 follow exactly the same format and 
rules as the inputs for J139. It is possible to assemble 
more than one matrix with J1^3* just so each matrix has the 
proper header card (see J139 write-up) and is followed by 
a blank. After each matrix is punched there is a 13X stop 
with NIA equal to (0127)3- To assemble the next matrix, hit 
00. 

Program stops : 

NIA * (0055)3* No header card for matrix or 1 or j is 
greater than n. 

NIA - (0127)3, Assembly completed. 
J143 uses all of HSS. 
Program available as J143A. 



M. I. Bernstein 
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j^JJg DEBUGGER — CONTINUOUS PRINTING 

Jl44 is intended to serve as an aid in debugging programs. 
Its purpose is the tracing of the activities of another program, 
periodically printing information which the programmer may use 
in diagnosing his difficulties. In order to facilitate the 
description of Jl44 we will adopt certain definitions. The 
concepts Involved correspond, loosely speaking, to the informa- 
tion on a P. R. card. Suppose that a JOHNNIAC instruction has 
just been completed. 

Control Counter : The NIA diminished by one, i.e., the address 
in memory from which the last instruction was obtained. 
Note the meaning of this in the case that the last instruc- 
tion was a transfer order. 
Orientation Character ; A symbol which is zero if the instruc- 
tion Just completed was a left instruction and one if it 
was a right instruction. 
Overflow Character ; A symbol which is zero if the overflow 

toggle Is off and seven if it is on. (See Note 4) 
Accumulator ; The word in the accumulator, 
MQ : The word in the MQ register. 

Referenced Word ; Roughly speaking the contents of the memory 
register, more precisely the contents of the cell whose 
address is the address part of the last instruction. 
Instruction Word ; If the last instruction was- at the left (i.e. 
if the orientation is zero) this is simply the contents of 
the instruction register. If the last instruction was at 
the right this is the contents of the instruction register 
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shifted half a word (21 blt3) to the left. Note that In 
either case the last Instruction appears at the left of 
the instruction word. 

To use JjM, have in the left half of the accumulator a 
transfer instruction which, if executed, would transfer control 
to the point in the programmer's program (hereafter called "the 
program") at which tracing is to begin and transfer control to 
the left half of the first word of JlH (3.0000). Then, inso- 
far as the programmer need be concerned, his program will be 
executed Just as though he had transferred to the appropriate 
point in his own program. This statement is true only with the 
qualifications in the notes below. 

Note 1. The tracer will periodically print three lines as 

follows : 

First line: an indentation, a five -character identifica- 
tion word (giving the cause of the print-out), the control 
counter, the orientation character, and the overflow character. 

Second line: The Instruction word and the referenced word. 

Third line: The Accumulator and the MQ. 
All these quantities will be with respect to the program being 
traced and will therefore be distinct from the control panel 
readings. The conditions under which a print-out will occur 
appear in the notes below. 

Note 2 . The tracer will not attempt to supervise the execu- 
tion of input - output (10X) instructions. When such an instruc- 
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tlon is encountered it will print out (see note l), with an ID 
of 66666 and then transfer control to the point in the program 
from which the instruction came. Note that tracing will 
therefore stop; the program will then be executed directly; 
even after input-output is over. 

Note 3 . All control panel switches should be in the same posi- 
tion they would be in if the program were being directly exe- 
cuted. The tracer will cause a machine stop if and only if 
the program has a stop. The sole exceptions to the above 
statements are the overflow Ignore switch and overflow stops; 
the overflow ignore switch should be on during tracing and 
there will be no overflow stops (see note 4 ) . At a stop* press- 
ing the 00 button will restart the tracer. The only registers 
which will be correct (from the programmer's point of view) are 
the MQ and Accumulator. The stop will have the same cause as 
in the direct execution of the program. 

Note 4 . If an unexpected overflow occurs, i.e. if an instruc- 
tion which causes an overflow is followed by an Instruction 
other than TPL or TPR the tracer will print out (with an ID of 
77777)* turn off the overflow toggle and resume tracing. This 
feature can be suppressed by having a negative quantity in the 
4th word (3.0003) of J144. This can be done either by internal 
programming or adding a single punch to the deck on which J144 
is loaded. If this is done the overflow character will always 
appear as zero on iprlnt-outs . 

Note 5. In addition to the print-outs mentioned above, there 



J144 

will also be a print-out (ID - 00000) after the completion of 
every instruction. The programmer has the option of suppress- 
ing some of these print outs. This can be done by changing the 
left address of 3.0001 to the address of an entry word to a 
routine which selects the conditions under which print-out is 
to occur. This routine should transfer to the left of 3.0002 
if 1 a print-out is desired f and to the right of 3.0002 if no 
print-out is desired. 
Region 3. 230 Q - 152 10 words. 
Program stops - See Note 3. 



Program available as J144B 

Jl^E 



Norman Shapiro 
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J145E DEBUGGER — PRINT ON TRANSFER 

The write-up for J145 is the same as that for J144 up to 
but not including Note 5. 

Notejj. In addition to the print-outs mentioned above, there 
will be a print-out (ID » 00000) after the completion of every 
transfer. 

Region 3 - 226 Q - 150 10 words. 
Program stops - See Note 3. 



Program available as J145B 

J1^5E 



Norman Shapiro 
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Jl46 g DEBUQQER — BREAKPOINT PRINTING 



The write-up for J146 is the same as that for J144 up to 
but not including Note 5. 

Note_5. In addition to the print-outs mentioned above there 
will be a print-out (ID * 00000) after the completion of every 
left instruction such that the word from which the instruction 
was obtained has a 1 in the 2~ 19 bit (the left-most of the two 
unused bits) . 

Region 3- 227 Q « 151 10 words 
Program Stops. See note 3. 



Program available as: J146B 

J146E 



Norman Shapiro 
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JJ'J|§ DEBUGGER — SELECTIVE CELL PRINTING ; 

The write-up for'jl47 is the same as that for J144 up to 
but not including Note 5. 

Note 5 . In addition to the print-outs mentioned above there 
will be a print-out after the completion of every non-shift 
instruction (left or right) whose address part coincides with 
one of a specified list of addresses. This list is specified 
as follows : 

© 000 A x 000 0000 

0+1 

©+n 000 A n 000 0000 
0+n+l 100 0000 000 0000 

Where the specified addresses are A,,. . ., A . At the time of 
the original entry to the tracer (in 3.0000) the MQ should have 
in the left address. 

Region 3 - 24l Q « l6l 1Q words 
Program stops - See note 3. 

Program available as:Jl47B 

J147E 



Norman Shapiro 
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J148E PUNCH STYLE P WITH I.D. 



J148 will punch a block of words in style p from 
location "a" through location V. Identification specified 
in the calling sequence is punched in Q x of each card 
and a sequence number 001(l)n is punched in C, Q . 

D-O 

Calling Sequence: 

a 020 i 010 # 
a+1 a b 

a+2 v 

x l 

a+3 v 

X 3 

a+6 v 

a+7 control returns here 
where X] _ x 2 x 3 x^ x,_ is the identification in the Easy Pox 
character code. 

Program length: Main program - 104 words 

Region A (erasable) - 15 words 

Highest symbol used : * 50 

Timing: Punches at full speed, 100 cards per minute. 

Program available as: J148E 



M. Shapiro 



J. _ _ ,, ^ _ 



i J149B 
J1^9E JOHNNIAC BLOCK TRANSFER TO AND PROM DRUM WITH TALLY 

J149 is a "fancy" version of J120. The calling sequence 

is as follows : 

RA o TRL XXX (Arbitrary Symbol) 

Op. p OpO y 

000 f 000 I 

Controls returns either left or right. (See 

below.) 

uhpT<p n _ _ fWD if transferring from HSS to drum 

UP jjyj lf tran3ferrlng fr0m drUm t0 JJ SS 





a 




a+1 




a+2 




a+3 


Op - 


p 


■t 


y 


<B 


p 


" 


f 


IS 


l 


n» 



first HSS loc. 
last HSS loc. 

drum position (0, 1, or 2) 
first drum address of position p 
last drum address of position p allowable. 
J1^9 does not assume y > p. However, if p > -y, then f > J 
must also hold. In this case, the interval [y, p] in HSS 
is stored on the drum so that contents of p go to f , contents 
3-1 go to f-1, etc. 

The purpose of I is to provide a check against writing 
over good information or going past the end of the position. 
If the interval [f,i] (or [i, f ] ) is smaller than [p/y] 
(or {y, p]), then reading or writing will not occur and con- 
trol returns to the left command of a+3- Otherwise, control 
returns to the right command of a+3 with the left address 
part of the accumulator containing the next available drum 
address, f», i.e. 

f * » f + (y-0)+1 if y> p 
• f + (y-p)-l if p > y. 



iJ-525 JOHNNIAC FLOATING-POINT INTERPRETIVE SYSTEM 
J150F 

Program Storage: 296o 1Q - 4095 10 (5620 Q - 7777 8 ) . 
All of the Floating Point Operations are recognized in 
their mnemonic forms by J100, Jll8. 

LIST OF FREQUENTLY USED LOCATIONS 

Dec. Octal Contents 

2960 5620 First Location of Interpreter 

2963 5623 020 [I CTR J 050 5644 

2980 5644 I Register 

4o4l 7711 Error Halt Location 

3040 5740 Trap Register - BRKPT 

^041 5741 " " - All Orders 

3042 5742 " " - Transfer 

3656 7110 AMQ Exponent 

3658 7112 AMQ Mantissa , _..„.„ 

3708 7174 072 [ q : J 025 7016 - Square Root Shift* 

3733 7225 022 7122 076 [ Q 2 1 " Series Shift* 

3999 7637 SeriesTest Number* 

3064 5770 

3056 5760 

3052 5754 

3050 5752 

3049 5751 

3048 5750 

3597 7015 

3598 7016 

3606 7026 

3615 7037 

3634 7062 

3635 7063 

: : ; - . . . 

1 . * • 

3643 7073 Integer - Ten exp. Nine 



Program available as : J150B 

J150F 



Let A » f, ,\ - f , where f„ is the n approximation to 
n (n+i/ n ** 



Index Register 

11 11 

11 11 
11 11 
11 11 
n 11 


A 

B 
C 
D 
E 
F 




Integer - Zero 

" - One 

• ■ •" • 






• •■ • 
Integer - Nine 
- Fifty 

" - Ten exp 

11 _ " " 


zero 
One 



J150B,F 
P. 2 



the function f . The test for convergence of f , to f 

»-q 



1b then made to depend upon the sign of I A j • 2*** - Z. 
Z is always 2 JJ? for the SQR operation. For the ART, EXP, 
and LOG operations Z is the series test number . The 
series test number is ordinarily equal to 2~^9 f or these 
three operations, but it can be modified by the user. 
However, the series test number is usually reset to 2"^ 
upon execution of a SIN or COS operation. For the SQR 
operation q is q 1 and q 1 is ordinarily set to 5. However, 
q^ can be modified by the user. The same situation holds 
for the SIN, COS, ART, LOO, and EXP operations with q 
equal to q„. 



John Derr 



J]J1B SINE-COSINE 



The four trigonometric functions developed and their 
locations are : 

al g y in location 1.001 

co | y in location 1.002 

sln g 2 y in location 1.000 and in MQ 

C03 g y in Accumulator 
Range: - 1 < y < 1 (in radians) 
Entered with y in MQ 
Calling sequence : 

a 020 a 010 XXX 

a+1 Control returns here . 

Region 3-32 words 

Region 1 (erasable) - 3 words 

Program available as J151B 

J151E 



M. Shapiro 
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J152B 

J152E DEBUGGER — BREAKPOINT PRINTING 

The write-up for J152 is the same as that for Jl44 
up to but not Including Note 5. 

Note_5. In addition to the print-outs mentioned above 
there will be a print-out (ID - 00000) after the completion 
of every left instruction such that the word from which 
the instruction was obtained has a 1 in the 2" 20 bit (the 
right-most of the two unused bits). 

Region 3 - 227 8 - 151 1Q words 
Program Stops. See note 3. 



Program available as J152B 

J152E 



Norman Shapiro 
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J 153 A CLEAR HSS TO PRESCRIBED WORD 

J153A Is a one-card self-loading routine which clears 
the HSS to the word placed in the right half of the 12' s row 
and then effectively hits the load button for the next card 
in the primary feed. 

Its principal suggested use is to clear the HSS to: 
130 0000 130 0000. If this is done and a program error 
causes transfer to a word not previously affected by the 
program, there will be a halt and no information which may 
be useful for debugging purposes will be destroyed. 

Program available as J153A. 



Norman Shapiro 



J154E SINE " C0SINE ROUTINE FOR Y IN RADIANS A 

Depending upon the argument y supplied In MQ, this 
routine develops \ sin or j cos in A (0 in radians). 

Argument Range Function Developed 
y » ©A -1 < y < 1 £ sin G 
y»5-^p -1 < y < 1 £ cos © 

If - or £ - - overflows out of the 2° position from left 
shifts or additions, the result Is unaffected because 
sin (© + 2mr) » sin G. 

-■7.Q 

Accuracy : Error less than 3x2 -'-' , in particular: 

£ | error | 

. Ox 2~ 39 

i x 2 -39 

-| Ox 2~ 39 

-1 ... Ox 2~ 39 

1/6 . Ox 2~ 39 

5/6 1 x 2" 39 

-1/6 1 x 2" 39 

' -5/6 • 1 x 2~ 39 

Duration: Approximately 15 milliseconds maximum. 

Entered with y in MQ. 

Calling Sequence: 

a 020a 010 XXX 
a+1 Control returns here 

Region 3: 25 word3 

Region 1: 3 words (erasable) 

Program available as J154B 

J15^E 

Note: This program was developed from the University of 
Illinois Code T5-157 prepared for the ILLIAC . 

Nancy Brooks 
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J155E PRINT INSTRUCTIONS WITH DECIMAL LOCATIONS, OCTAL 
OPERATIONS, DECIMAL ADDRESSES 



J155 is a closed subroutine which prints the contents 
of a block of storage from "a" through "b" (b 2 a) as 
instructions. The Instructions are printed one word per 
line with octal operations and decimal address parts. The 
location of each word is printed on the left in decimal. 
A block of one or' more zero words is indicated by a single 
blank line. The printing rate is 900 lines per minute 
except when passing over zeros. 



Calling Sequence: 020 $ 010 # 

000 a 000 b 
Return 



Highest symbol used: * 57 
Storage requirements: 10 2 * words 
Program available: J155E 



J. C. Shaw 



J j\l%l INTEGRAL ROOT x 1/p 

This routine computes the p root (p, a positive, 
integer, 1 < p < 4095) of a 39 binary digit real argument x, 
-1 < x < 1. if p is even and x is positive, the 
positive root is found. 
Special cases: 



x 



£ 



root 






Time 


required 















0.5 ms . 






halt : 


,0 


if 


GO 








-1 








1.6 ms . 






X 








x neg. 2, 
x pos. 1. 


.0 

.0 


ms . 
ms . 



1.0 ^ 0<p<4095 
2. Negative even 

3 • -1 odd 

4. |x| < 1 l 

5- |x| < 1 o halt; if GO 

6. |x| > l-px2" 3 ^ p >1 +(l-2~ 39 ) with x neg. 2.3 ms . 

sign of x x poa . 1.4 ms . 

Program stops: 3-017 p equal to zero. (if GO is pressed, 

root is set to zero.) 

3-029 p even and x negative. (If GO is 
pressed, root is set to zero.) 

Calling Sequence: x in MQ 

a 020 a 010 XXX 

a+1 p 

a+2 Control returns here 

Exits with x 1 ' 13 in A. 

Accuracy: | error | < 2~ 3 ^ 

Approximate Time: 

For the special cases, the time required is given above. 
In general, the time required varies directly with p 
and indirectly with x. Some typical times in mlill- 
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seconds are given in the following table: 
x - 0.1 0.2 0.3 0.5 0.8 



p 












2 


35 


30 


30 


.30 


25 


3 


45 


^5 


40 


4o 


35 


4 


55 


50 


50 


45 


40 





130 


125 


120 


105 


90 



For large values of p and small values of x the time 
increases rapidly. 

Program length: 33 words in region 3. 

4 words in region 1. 

Note: This routine was adapted from Illinois Code R2-105 
as programmed for the ILLIAC . 



Nancy Brooks 
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J157E ZEROS OP A POLYNOMIAL WITH COMPLEX COEFFICIENTS 
FLOATING POINT 

J157 will evaluate all of the roots of an n degree 

polynomial equation of the form 

n 

C ± Z 1 - 0, 




where C^ is a complex number for 1-0, ..., n and n < 50. Each 
root is computed as a complex number and, furtherfore, the norm 
of the remainder obtained by dividing the reduced polynomial by 
the computed zero is supplied for each zero evaluated. J157 
must be used in conjunction with the Floating Point Interpretive 
System. 

J157 is entered by basic linkage. Before the calling 
sequence is executed, however, the coefficients of the given 
polynomial must be in consecutive H. S. S. locations as follows: 

C n » real component of C n in floating point internal form 

C n I - imaginary " " » " " » " » 



C Q m real component of C Q in floating point internal form 
C ^ - imaginary " " " " " " " »■ 



Now if C„ - 0, let N be such that C XT ^ and C„,, - C 

" W N+l 



N+2i 



» C =0. 
n 

Calling Sequence ; 

a 020 $ 010 # Link to J157 
a+1 000 L(C n R ) n L(N) 
a+2 Control returns here 



th 



Let ft. be the j 0Xi root of f(Z) » 



N 



*y~ c ± z 1 - o. 
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Upon execu- 



tion of the basic link, J157 will proceed to find the zeros 
(fi 1 , . .., ft N ) of the reduced polynomials g(Z) of f(Z), one at 
a time, except in the case when ft is a zero of K order mul- 
tiplicity. (In the latter event ft is evaluated only one time, 
but it is counted as K roots with respect to the output of J157) 
The roots ft^, together with jg(ftj R ) l+lgtft, 1 ) | , are stored in 
consecutive H.S.S. locations beginning with L(N)+1 and ending 
with L(N)+3N as follows: 



L(N)+1 
L(N)+4 



ft 
ft, 



k 

1 ■ 

R 



ft, 



ft, 



R^ 



fffi^) + f (ft/) 



R 



6(ft 2 ) + 6(°2 ) 



;L(N)+3N-2 



ft. 



ft. 



g(" N R ) 



S^N 1 ) 



N "N 

N is a fixed-point Integer. All other numbers are in the 
floating-point internal form. 



Description of the Method 

The basic process used is Newton's method, i.e. if Z n is the „* h 

approximation to a root ft, then 



Z . , ■» Z — 

n+1 n 



6(Z n ) 



S'(Z„) 



The criteria for convergence of Z n to ft requires that 



Z n+1 " z n 



AZ. 



n 



g(Z n ) 
S'( Z n) 



satisfy the inequalities 
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| AZ n| -^ l Z n| * 10 ~ 7 and 



AZ R 



< 



Z R 

n 



10" 7 . Hence |g(n R ) U|g((2 Z ) | 



yields an independent check on the accuracy of the calculation of ft, 

Note that this latter check involves an absolute error with 

respect to the polynomial, whereas the convergence criteria is 

based on a relative error with respect to Z . 

In the case of a repeated root Q of degree K, K > 1, Newton's 

method is rendered inadequate on two accounts. The convergence 

becomes linear rather than quadratic and the number of good 

by a factor of at least two since 
significant digits in Z n is reduced/ g'(Z n ) -» as Z fl -» fl. As 

a result, g(Z n )/g'(Z n ) becomes the ratio of two relatively small 

numbers. Here, the basic process is modified as follows: Let 

L be the first Integer, L>1, such that g 1 ^ 1 (Z n ) > Q'€ (Here 

we will omit the details concerning the explicit identity of 

Q and £ . Let it suffice to say that the test is relative versus 

absolute and that g (Z ) is bounded away from zero.) Now 

(K-L) g L (Z_) (K-L) g L (2 ) 

z «j.i " z ~ m — and AZ„ - - m — £- . 

n+1 n g^ 1 (z n ) n g w ' i (z n ) 

UBing thlB new form of AZ the test for convergence is the same 

as described in the preceding paragraph. Also the modified process 

is still at least a Becond order process. 

Convergence and the Choice of Z 

When the computation for any root SI begins Z Q is computed 
either as a function of C Q or as the conjugate of the immediately 



*The second inequality is designed to cover the situation 
where the imaginary component of il can be much larger than the 
real component of Cl and the real component is the only one de- 
sired. Problems exist in the field of dynamic analysis, for 
example, where this type of convergence is desired. 
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preceding root. The iteration will then proceed to compute Z 

n+1 

as indicated above until either Z n+1 converges to a or n - 13 . 

In the former case (the ordinary case), we are through. In the 

latter event a new Z Q is computed as a different function of C . 

This time n is allowed to reach 13 + 10 - 23 before a new Z is 

o 

computed. This process can be repeated until the 7 th value of 
Z Q has been computed. If convergence has not been achieved when 
n - 13 + 6*10 » 73* then the program will halt. 

In order to give the user some insight into the reasons for 
selecting such an elaborate system for computing Z , we might 
outline some of the pathological cases which might arise and do 
not fit into the standard convergence pattern. We first dis- 
tinguish two fundamentally different causes for abnormal conver- 
gence . 

I. Newton's method is not, precisely speaking, an "error- 
squaring" process. In fact, it need not even be convergent 
at all. Basically (&Z) n+1 - q. (AZ)£. Convergence is 
guaranteed if |q. (AZ) n l<l,. but the rate of convergence still 
depends directly on q. If |q| ii i, the convergence might 

be very slow. As an example of non-convergence consider 
the case where g'(Zn) < Q-j/^ and g(Z n ) > VV i ' e - 
Z n is very near a root of g'(z) « which is not a root of 
g(Z) - 0. 

II. Cycling can occur in this method due to two diverse causes. 

(By cycling we mean that a finite sequence (Z , Z , ..., 

Z a) of root approximation values are taken on in a cyclic 
manner . ) 
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A. The propagated error which accumulates in the calcu- 
lation of g(Z_) and g'(Z ) ia so great that the con- 
vergence criteria cannot be met. This sort of cycling 
becomes more probable as the degree N of g(Z) increases. 

B. A geometrical symmetry exists among the roots of g(Z) 
relative to the approximation value Z n . 

Notes 

(1) A Halt (130 operation) will occur if the process does not 
converge. If the 00 button is pressed, Z + , will be placed 
in the root output storage and the program will proceed to 
evaluate the roots of the reduced polynomial. 

(2) The roots are usually in error only in the low order two 
digits of the mantissa. The accuracy of a root varies, 
naturally, with the degree of the original polynomial and 
the position of the root in the sequence (ft,, ..., fl N ) . 

(3) The evaluation of the n roots of unity Is probably more 
difficult than the "average" polynomial occurring in 
practice due to the geometrical symmetry of the roots. The 
following approximate times were recorded while operating 



in the SD 


Mode: 




X 3 - 1 


13 sec. 




X 5 - 1 
X 8 -1 


18 sec. 




1 min. 45 


sec. 


X 9 - 1 
X 16 -1 


45 sec. 




8 min. 50 


sec. 


X 17 - 1 


4 min. 20 


sec. 
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Reg. A 332 1Q words (A - A 331)* 

Symbolic Code: ^22, Q » 646n words 

Highest symbol used: * 99 

J150P 5620 Q - 7777q (Current version of Floating Point Interpretive 

System) 

Program available as J157E. 



John I. Derr 



# A132-A331 are available to the user for storing coefficients 
for input to J157* i-e. it is permissible to have L(C n R ) » A132. 
However, these coefficients will not be available upon reentry 
to the main program. 



2-29-56 

J158A AUTOMATIC COMPUTATION OF THE ZEROS OP A POLYNOMIAL 
WITH COMPLEX COEFFICIENTS — FLOATING POINT 

J158A Is an automatic version of J157. The user needs 
only to record the necessary input data In punched cards, place 
these cards immediately behind JI58A, and press the LOAD button. 
The roots of the given polynomials will be computed one root at 
a time and all of the roots for one polynomial will be printed 
after the last root has been computed. 
Input Form 

Information should be punched in the Floating Point Data 
Form as follows : 
1st card for a problem 

(1) (2) (3) (6) 

+ EXP MANTISSA + EXP MANTISSA + EXP MANTISSA ... + EXP MANTISSA 

n ID BLANK • ? 

COEFFICIENTS 
Any decimal BEGIN HERE 
information 
for problem ID 

— order of polynomial 

+ if all coefficients are real 
- if any coefficient is not real 

The coefficients are punched into consecutive positions of 
the cards beginning with position (3) of the first card and con- 
tinuing into the succeeding cards beginning with position (l). 
The last card for each problem must contain a 12-punch (+) in 
column 80. If the sign position of the word punched in position 
(1) of the first card is (+) or blank, then only the real co- 
efficients are to be punched and these must be in consecutive 
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positions (no gaps). Otherwise, the real and Imaginary com- 
ponents of each coefficient must be punched. 

The roots for a sequence of polynomials can be evaluated 
by placing the input cards for the polynomials in sequential 
order behind JI58A. Recall that the last card of each problem 
must contain a (+) in column 80. If the input cards are 
followed by two blank cardB, the collator will be on Select 
following completion of the last problem. 
Output Form 

The page will be ejected prior to the beginning of the 
first problem. One space will be skipped before the printing 
for each problem begins. The numbers printed will be in the 
external floating-point form. The print format la that described 
for the 013 (PNT) order in the Floating-Point write-up. The 
printing for one problem takes place as follows: 



space 

Information in position"! 

(1) of 1st Input Card J"' ~ 

Roots begin here ____ ft 

Last Root -------- _ q 



R 



N 



B 



a. 



a 



N 



+ n ID 



fCo/) + f^ 1 ) 



g(" N R ) 



g^/) 



Notes : 

(1) The program will halt at 1012 Q if n exceeds 49. If the GO 

button is pressed, the program will eject the page and 

begin the computation of the next problem. 
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Notes (cont.) 



(2) A programmed halt at 1370g indicates that the iteration 
has not converged. If the GO button is pressed, the 
current root approximation will be placed in the root 
output storage for printing and the program will proceed 
to evaluate the roots of the reduced polynomial. 

(3) If N < n, only N. roots will be printed. 

(4) The user is referred to the J157 write-up for a descrip- 
tion of the method. 

Program available as JI58A 



John I. Derr 



3-13-56 



J159E INVERSE INTERPOLATION, A REAL ROOT OP f (x) - 

Thia routine searches for the real root x In the speci- 
fied interval x ]L < x < x 2 of a function f(x) - 0. An auxiliary 
closed subroutine must be provided which, when entered with x 
in the MQ with the following calling sequence: 

/ 020 * oio a 

ir+l Control return 
returns control to the left order in ^+1 with f(x) in A. 

Calling sequence: 

x, in B 

x 2 in B 1 

a • 020 a 010 <$ 

a+1 3 Control return with x in A 

where p is the location of the auxiliary routine. 

Restrictions: 

1. If f(x, ) and f(x 2 ) are of the same sign or if either 

is zero, no root is found. Such a situation is 
indicated by a control return with x « -1 in A. 

2. In the interval x 1 < x < x g f(x) must be continuous 

and in the range -1 < f(x) < 1. 

Range: -1 < x < 1 

Method: If (x,) n and (x 2 ) n are two arguments of f(x) such that 
f(x,) and f(x 2 ) n are of opposite sign, linear interpolation is 
used to find the next approximation to the root x n+1< The sign 
of f(x ,) is then compared with the signs of f (x- L ) n and f(x 2 ) n 
to determine the interval between which the root x lies. If 



J159E 
-2- 



(x l ) n < x < x n+1 , then (x 2 ) n is replaced by x n+1 , f (x 2 ) n Is 
replaced by f(x n+1 )> and f(x 1 ) n is replaced by l/2f(x 1 ) n . If, 
however, x n+1 < x < (x 2 ) n , then (x 1 ) n Is replaced by x n+1 , 
f(x 1 ) n is replaced by f(* n+1 )* and f(x 2 ) n Is replaced by 
1/2 f(x 2 ) n . ( The process is repeated until either 
1/2 f(x n+1 )| < ^ or |( Xl ) n - (x 2 ) n | < € 2 
where C and £ g are located in * 11 and * 12 respectively. In 
the library copy C. « 2" 39 and ^ 2 = 2" J . 

Accuracy: for the root x j €g 

for the function f(x) - 0; 2^ 

Duration: [2 t + 3 + n(t-6.5)] ms where n » number of iterative 
linear interpolations required to find root, and 
t ■ duration in ms of auxiliary routine which computes 
f(x). 

Symbolic Code: 38 words 

Region B: 7 words (must be preserved by auxiliary routine; 

otherwise erasable). 

Highest symbol used: * 13 
Program available as J159E. 



Nancy Brooks 



J160E CARD TO MOUSE MATRIX ^' 

Jl6o encodes 80 columns of a card Into Mouse matrix form. 
Columns 1-40 are encoded Into cells BO, . . . , B6 and columns 
41-80 are encoded Into CO, . .., C6. Each of the 80 columns may 
contain any 026 keypunch character. 

Before entering Jl6o an appropriate select order must be 
given (100 0000 to read a card from the primary feed or 
100 0001 to read a card from the secondary feed) . Jl6o must 

be entered within 75 milliseconds of the select order or a 

(2) 

late copy will result* '. To read cards at full speed, the 

select order must be given within 3-6 milliseconds of the exit 

from Jl6o . 

Calling sequence : 

a 020 a 010 
a+1 Control returns here 

Highest symbol used: * 1 

Program will stop at the left of word 2 if there is a late 

copy. 

Timing chart: 



<- 75 ms -> 


<- 


Jl6o 


-> 


<— 3»6 ms —> 













100 000X ste P a ste P a+1 100 ooox 



A late copy will result if the allowed time between the 
100 OOOX order and step a is exceeded. The reader will run at 
t- speed if the time used between step a+1 and the 100 OOOX 
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order is leas than 3.6 + 250(k-l) and greater than 3.6 + 250 (k-2) 

milliseconds. 

Program length: 

27 words 

Region A (erasable) - 4 words, A3 to A6 

Region B - 7 words, BO to B6 

Region C - 7 words, CO to C6 
Available as J160E 



M. B. Shapiro and N. Z. Shapiro 



(l) For an explanation of the Intended use of Jl6o, see JOHNNIAC 

1. 42 



Note No. 42 



(2) These times are based on 84 /<s for an 02X operation and 89 /is 
for an 06X operation ' 



J161E 



CARD TO MOUSE MATRIX WITH INTERMEDIATE COMPUTATION 



(1) 



Jl6l encodes 80 columns of a card into Mouse matrix form. 
Columns 1-40 are encoded into BO - B6 and columns 41-80 are 
encoded into CO - C6. Each of the 80 columns may contain any 
026 keypunch character. 

Jl6l must be entered 12 times in order to complete the 
reading and encoding of a single card. The time between suc- 
cessive exits from Jl6l and succeeding entries is available 
to the programmer. Before the first entry to Jl6l an appro- 
priate select order must be given (100 0000 to read a card 
from the primary feed and 100 0001 to read a card from the 
secondary feed). If too much time is taken between the select 
order and the first entry or between successive exits and suc- 
ceeding entries a late copy will result. (See timing chart 
below for detailed time3.) v ' To read cards at full speed, 
the select order must be given within 3 milliseconds of the 
12th exit from Jl6l. 
Calling sequence : 
a 4 



a 1+ l 



020 a 010 p 
Control returns here 



12 times for each card 
i - 1, . . . , 12 



Highest symbol used ; * 3 

Program will stop at the left of word 2 if there is a late 
copy. 
Timing chart: (in ms) 



<-75-> 



6.4 



{ 



l 



6.1 



I 



6.4 



6.3 



•M 



" 7 U 
100 000X x 

Shaded areas are Jl6l. 



6.4 



4 



6.1 



S *L 



I 



6.4 



*/ 



5-6 



<*»+! 



6.4 



I 



<**+/ 



6.4 



V 



6.4 



I 



3.6 



IJU 



160 ooox 



JiblE 
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A late copy will result if the allowed time between the 

100 000X order and step a-, or between steps a.+l and a, 

■*• i 1+1 

(1 m i, .,., u) is exceeded. The reader will run at i speed 
if the time used between step a 12 +l and the 100 000X order is 
less than 3.6 + 250(k-l) and greater than 3.6 + 250(k-2) milli- 
seconds. 
Program length: 

4o words 

Region A (erasable) - 4 words, A3 to A6 

Region B - 7 words, BO - B6 

Region C - 7 words, CO - C6 
Available as J161E 



M. B. Shapiro and N. Z. Shapiro 

(1) For an explanation of the Intended use of Jl6l, see 
JOHNNIAC Note No. 42 

(2) These times are based on 84 /13 for an 02X operation and 
89^3 for an 06x operation. 



4-9-36 

J162E MOUSE MATRIX TO H.S.S.^ 

Jl62 forms 

(10 n y+10 n ~ 1 x 1 +. . .+10 n " 1 x 1 +. . .+10x x +x )2~ 39 

where n is a positive integer specified by the calling 
sequence, A initially contains y-2"^ and x , . .., x are 
integers formed from the numeric .parts of the left-most n 
columns of the Mouse matrix in BO, ..., B6. The result is 
placed in A and the entire matrix is shifted left n places. 

Calling sequence : 

a 020 a 010 p 

a+1 n«2~39 

a+2 Control returns here . 

Highest symbol used: * 3 . 

program will stop at the right of words 11 or 12. because of 

an overflow if A initially contains a number which will cause 

the polynomial to overflow at some step in the accumulation. 

(o) 
Timing : v ; ,(.20 + 2.10n) ms . 

Program length: 

21 words 

Region A (erasable) - 3 words, AO to A2 

Region B - 7 words, BO to B6 

Available as J162E 

M. B. Shapiro and N. Z. Shapiro 

(1) For an explanation of the Intended use of Jl62, see 
JOHNNIAC Note No. 42 

(2) These times are based on 84 /<s for an 02X operation and 
89 //s for an 06X operation. 



J163E H.S.S. TO MOUSE MATRIX ^ * 

JI63 shifts the Mouse matrix in BO, . . . , B6 to the left 
n places, placing x^ x 2> ..., x n in the right-most n col- 
umns. The integers x,, . . . x n are defined by the recursion: 

x, » Integral part of 10 | y ± \ , < i < n 

y » Initial contents of AO 

y i+l - lc, l y il ~ x ± < i < n 

At exit, y + , will be in AO. 

(2) 

Any x which equal zero enter the matrix as blanks . K ' 

Calling sequence : 

a 020 a 010 

a+1 n-2" 39 

a+2 Control returns here 

Highest symbol used: * 2 

No program stops. 

Timing: ^ 3 ' (.10 + 2.10n) ms. v 

Program length: 

23 words 

Region A (erasable) - 3 words, AO to A2 

Region B - 7 words, BO to B6 
Available as JI63E 

M. B. Shapiro and N. Z. Shapiro 



(1) For an explanation of the intended use of JI63 see 
JOHNNIAC Note No. ^2. 

(2) The routine for inserting zeros is listed in JOHNNIAC 
Note No. 42. 

(3) These times are based on Qk //s for an 02X operation and 
89 )as for an 06X operation. 



J164E 



MOUSE MATRIX TO PUNCH 



(1) 



J164 punches 80 columns corresponding to the 80 columns 
of characters encoded In Mouse matrix form. Columns 1-40 are 
punched from BO - B6 and columns 41-80 are punched from CO - C6, 
Each of the 80 columns may contain any 026 keypunch character. 

Before entering Jl64 a 100 0002 order must be given. Jl64 
must be entered within 42 milliseconds' ' of the select order 
or a late copy will result. To read cards at full speed the 
select order must be given within 17.7 milliseconds of the exit 
from Jl64. 



Calling sequence : 

a 020 a 010 £ 
a+1 Control returns here 

Highest symbol used: * 2 

Program will stop at the right of word 6 if there is a late copy, 

Timing chart: 



42 ms -> 



«~ J 164 -> 



100 0002 



step a 



<- 17.7 ms -> 



step a+1 



100 0002 



A late copy will result if the allowed time between the 
100 0002 order and step a is exceeded. The punch will run at 
£ speed if the time used between step a+1 and the 100 0002 
order is less than 17.7 + 600 (k-l) and greater than 
17.7 + 600 (k-2) milliseconds. 



J165E 



MOUSE MATRIX TO PUNCH WITH INTERMEDIATE COMPUTATION 



(1) 



JI65 punches 80 columns corresponding to the 80 columns 
of characters encoded In Mouse matrix form. Columns 1-40 are 
punched from the matrix in BO, . .., B6 and columns 41-80 are 
punched from the matrix in CO, . .., C6. Each of the 80 columns 
may contain any 026 keypunch character. JI65 must be entered 
12 times in order to complete the punching of a single card. 
The time between successive exits from JI65 and succeeding 
entries is available to the programmer. Before the first entry 
to J165j a 100 0002 order must be given. If too much time is 
taken between the select order and the first entry or between 

successive exits and succeeding entries, a late copy will re- 

(2) 
suit. (See timing chart below for detailed times .) v ' To 

punch cards at full speed the select order must be given within 

17.2 milliseconds of the 12th exit from JI65. 

Calling sequence: 



a l 
a ± +l 



020 a 010 p 
Control returns here 



12 times for each card 
(i-1, ..., 12) 



Highest symbol used: * 3 

Program will stop at the left of one of the following words 

if there is a late copy: 8, 12, 17, 22, 27,32, 37, 42, 48, 50, 

52, or 5^. 



Timing chart: fin ms) 



<-42.6-> 



20.1 



1&9 



1919 



^ 



£ 



19.9 



-i 



19.9 
i 



19.9 



i 



19.9 



19.7 



20.4 20.4 



i 



20.4 



6. 



17.2 



-V+' 



"^t-l 



V 



V 



v" 



<*> 



«/ 7 +/ 



100^0002 



<£+f 



<tl 



<V' 



oK h +) 



«*i *X "-3 *+ ' 

Shaded area is JI65. 



°<i<> <*,, 



IX, 



100 0002 
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A late copy will result if the allowed time between the 

100 0002 order and step a, or between steps a.+l and ot. +1 

(i » 1, . .., 11) is exceeded. The punch will run at 1 speed 

k~ 
if the time used between step a 12 +1 and the 10 ° 0002 order is 

less than 17.2 + 600 (k-l) and greater than 17.2 + 600 (k-2) 

milliseconds. 

Program length: 

56 words 

•Region A (erasable) - 3 words, A3 to A5 

Region B - 7 words, BO to B6 

Region C - 7 words, CO to C6 
Available as JI65E 



M. B. Shapiro and N. Z. Shapiro 



(1) For an explanation of the Intended use of JI65 see JOHNNIAC 

Note No. 42 

(2) These times are based on 84 ^s for an 02X operation and 
89 //s for an 06X operation. 



H-y-^U 



J166E MOUSE MATRIX TO PUNCH AND ECHO CHECK 



(1) 



Jl66 punches and echo checks 80 columns corresponding to 
the 80 columns of characters encoded in Mouse matrix form. 
Columns 1-40 are punched from the matrix in BO, . .., B6 and 
columns 41-80 are punched from the matrix in CO, . .., C6. 
Each of the 80 columns may contain any 026 keypunch character. 

As one card is being punched, the previous card is being 
echo checked. Region D contains the binary image of the card 
being echo checked. The last (absolutely) card punched by 
J166 can be echo-checked only by entering J166 again and punch- 
ing an extra (blank) card. If it is desired to suppress echo 
checking, the left operation of the word in * O* 2 ' must be 
made 014. if this is done, the next use of Jl66 will not cause 
an echo check stop (although the select order may be either 
100 0002 or 100 0003). If there is no further alteration of 
* 0, there will be echo checking on subsequent card3. 

Roughly speaking, once J166 has been entered, region ? 
cannot be used until the final exit from J166. The exception 

to this statement occurs when punching with echo check 

(1) 
suppression. VJ/ 

Before entering Jl66, a 100 0003 order must be given. The 
entry to J166 mu3t be completed within 40.4 milliseconds' ' of 
the select order or a late copy will result. To read cards at 
full speed the select order must be given within 17.O milli- 
seconds of the exit from Jl66. 
Calling sequence: 

a 020 a 010 p 
a+1 Control returns here 
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Higheat symbol used: * 8 

Program will stop at the right of word 74 (* 0) if there is an 

echo check (there will be no way of proceeding) or at the right 

of word 68 if there i3 a late copy. 

Timing chart: 



<r- 40.4 ~> 



<- J166 -$► 



100 0003 



step a 



■<- 17.0 ms-> 



step a+1 



100 0003 



A late copy will result if the allowed time between the 
100 0003 order and step a is exceeded. The punch will run at 
^ speed if the time used between step a+1 and 100 0003 order 
is less than 17 + 600 (k-l) and greater than 17 + 600 (k-2) 
milliseconds. 
Program length : 

76 words 

Region A (erasable) - 6 words, A3 to A8 

Region B - 7 words, BO to B6 - 

Region C - 7 words, CO to C6 

Region D (semi-erasable) - 24 words, DO to D23 
Available as J166E 



M. B. Shapiro and N. Z. Shapiro 

(1) For an explanation of the Intended use of Jl66,,see 
JOHNNIAC Note No. 42. 

(2) * is the 74th word of J166E. 

(3) See JOHNNIAC Note No. 42. 

(4) These times are based on 84 /jb for an 02X operation and 
89 jUb for an 06X operation. 



4-9-56 

J167E MOUSE MATRIX TO PUNCH AND ECHO CHECK WITH INTERMEDIATE 
COMPUTATION ^ 

JI67 punches and echo checks 80 columns corresponding to 
the 80 columns of characters encoded in Mouse matrix form. 
Columns 1-40 are punched from the matrix in BO, . .., B6 and 
columns 4l-8o are punched from the matrix in CO, . .., C6. Each 
of the 80 columns may contain any 026 keypunch character. 

JI67 must be entered 12 times in order to complete the 

punching of a single card. The time between successive exits 

from JI67 and succeeding entries is available to the programmer. 

Before the first entry to JI67 a 100 0003 order must be given. 

If too much time is taken between the select order and the 

first entry or between successive exits and succeeding entries 

a late copy will result. (See timing chart below for detailed 

(2) 
times.) To punch cards at full speed, the select order must 

be given within 16.1 milliseconds of the 12th exit from JI67. 

As one card is being punched the previous card is being 

echo checked. Region D contains the binary image of the card 

being echo checked. The last (absolutely) card punched by 

JI67 can be echo checked only by entering J166 again and 

punching an extra (blank) card. If it is desired to suppress 

echo checking the left operation of the word in * 2 must be 

made 014. If this is done, the next use of JI67 will not cause 

an echo check stop (although the select order may be either 

100 0002 or 100.0003) during the first card it punches after 

this. If there is no further alteration of * there will be 

echo checking on subsequent cards. 
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Roughly speaking, once JI67 has been entered, region D 
cannot be used until the final exit from JI67. The exception 
to this statement occurs when punching with echo check suppres- 



sion. VJ; 










Calling 


sequence 


* 
• 








a l 


020 a 


010 


3 




a ± +l 


Control 


returns 


here 



12 times for each card 
(1 - 1, ..., 12) 

Highest symbol used: * 11 

A) 

Program will stop at the right of word 75 (* OJ if there is an 

echo check (there will be no way of proceeding) or at the right 

of word 69 if there i3 a late copy. 

Timing chart: (in ras) (5) 
«40.7-* x $* 6 I8.7I18.718.7 18.7 18.7 18.7 



18.6 



i 



t 



18.7 
4 



2 



18.5 



18.9 



18.9 



2 



18.7 



I 



16.1 



<-*•( 



<+; 



rf .+ » 



«ut) 



«s+> 



V 



V 



«y/ 



*, + ; 



100 0003 



>to 



</,»-»• I 



'* 100 0003 



A late copy will result if the time between the 100 0003 
order and step ct-^ or between steps c^+1 and a 1+1 (l«l, . .., 11) 
is exceeded. The punch will run at ^ speed if the time used 
between step a-, 2 +1 and the 100 0003 order is less than 16.1 + 
600 (k-l) and greater than 16.1 + 600 (k-2) milliseconds. 
Program length: 

78 words 

Region A (erasable) - 6 words, A3 to A8 

Region B - 7 words, BO to B6 

Region C - 7 words, CO to C6 

Region D (semi-erasable) - 24 words, DO to D23 
Available as JI67E 



M. B. Shapiro and N. Z. Shapiro 
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(1) For an explanation of the intended use of JI67, see 
JOHNNIAC Note No. 42. 

(2) These times are based on 84 jus for an 02X operation and 
89 na for an 06X operation. 



(3) See JOHNNIAC Note No. 42. 

(4) * is the 75th word of JI67E. 

(5) Shaded area is JI67. 
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J168E 



MOUSE MATRIX TO PRINTER 



(1) 



J168 prints 40 columns of information encoded in BO, Bl, 
B2, B3, and B6 of the Mouse matrix; B4 and B5 are not used 
since only numeric information is printed. 

Before entering Jl68 an appropriate select order must be 
given (100 0004) to select the printer and space or 100 0005 

to select the printer) . The entry to Jl68 must be completed 

(2) 

within 17.8 milliseconds v ; of the select order or a late copy 

will result. To print at full speed the select order must be 
given within 12.5 milliseconds of the exit from J168. 

If a character other than blank, 0, 1, 2, ..., 9 is called 
for, Jl68 will produce hash, although it will not hang up a 
printer column. 

Calling sequence : 

o 020 a 010 
a+1 Control returns here 

Highest symbol : * 1 

Program will stop at the left of word 2 if there is a late 
copy. 



Timing chart: 



<r- 17-8 ms -> 


<r- 


J168 


-> 


<- 12.5 ms -> 













100 ooox 



step a 



step a+1 



100 OOOX 
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Program length: 
29 words 

Region A (erasable) - 4 words, A3 to A6 
Region B - 5 words, Bo, Bl, B2, B3> and B6 

Available as J168E 



M. B. Shapiro and N. Z. Shapiro 



(1) For an explanation of the intended use of Jl68, see 
JOHNNIAC Note No. 42. 

(2) These times are based on Qk /Ms for an 02X operation and 
89 yMS for an Q6x operation. 



j-x-j^j 



J169E 



COMPLEX FLOATING-POINT MULTIPLY 



JI69 is a closed sub-routine which will multiply two 

complex floating-point numbers a and b. The arguments must 

be in region A prior to the execution of the basic link. The 

resulting complex floating-point product c = a • b will be 

found in region A when JI69 links back to the main program. 

The arguments a and b will not be destroyed by JI69. 

Calling Sequence 

a 020 $ 010 # (Link to JI69) 
a+1 Control returns here . 



The region A locations of a, b, and c are as follows: 

■a 

A Q contains a = real component of a in f 1 . pt. internal form, 
a 1 ' 



a » imaginary " 


1! a 


It II II II It 


b R - real 


" b 


II II II II II 


b m imaginary " 


,r b 


,1 It II It II 


c R » real 


" c 


11 It It II II 


c » imaginary " 


" c 


tl It II 11 11 



12g words 



Region A (erasable) 6 words A - A 5 
Symbolic Code 10 in 
Highest symbol used: * 
Program available as : JI69E 



John I. Derr 



3-l-i?o 



J170E 



COMPLEX FLOATING-POINT DIVIDE 



J170E is a closed sub -routine which will obtain the 
complex floating-point quotient q of two complex floating- 
point numbers a and b. The dividend a and the divisor 
b must be in region A prior to the execution of the basic 
, link to J170. The quotient q and the square of the norm of 
b ^M 2 - (b R ) 2 + (b 1 ) 2 J will be found in region A when J170 
links back to the main program provided that b / 0. If b =» 0> 
q will not be computed. The arguments a and b will not 
be destroyed by J170. 
Calling Sequence : 

. a 020 $ 010 # (Link to J170) 
a+1 Control returns here If b / 
a+2 " " " " b - 0. 



The region A locations of a, b, q, and |b| are as follows: 



"3 
A c 



x R 
I 



A n contains a » real component of a in floating -pt. internal form 



a~ » imaginary 

b <=» real 

b « Imaginary 

■a 

q » real 

q « imaginary 



a 
b 
b 

q 
q 



norm squared of b . 



Region A (erasable): 7 words A 
Symbolic Code 17 1Q 

Highest symbol used: * 1 
Program available as : J170E 



- A 6 



21g words 
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J171E FIXED POINT SQUARE ROOT 

J171 1b a closed subroutine which will evaluate the non- 
negative solution of the equation x «* |a|, i.e. x = + v|a|. 
Before executing the basic link into J171* a must be in the 
MQ , where < |a| < 1. When J171 links back to the main 
program x will be in the Accumulator and < x < 1 . 
Calling sequence: 

020 $ 010 #0 (Link to J171E) 

Description of the Method: 

-2 2a 
J171 first normalizes a so that 2 < a-2 H < 1, provided 

that a ^ 0. Let y - a«2 2q . Then x Q « 1/2 + y/2. Then if 

x 4 y> the following form of the Newton Iteration scheme is 

used until X M ., » X„ : 
n+1 n 

X n + 1 - X n + ^ K " X n] . 
Finally, x - X n • 2" q . 



Accuracy: Let £(a) = x - \/|a| be the absolute error. Then 

6(a) » or 2~^. Observe that x has approximately 

q more significant binary digits than a. 
Timing: Let T(a) denote the time In ms required to evaluate 

\/|a|. Then .6 ms. < T(a) < 23 ms. for every admiss- 

able a. In particular, we list the following 

extreme cases: 

T(0) = .6 ms. 

T(l-2~ 39 ) » T(l-2~ 38 ) o 1.49 ms. 

T(2~ ) ~ 13.14 ms. (requires the maximum number (5) 
of iteration cycles). 
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T(2"^ ) ^ 23.04 ms (requires the maximum number (5) of 
iteration cycles and the maximum number (l8) of normaliza- 
tion cycles) . 

Region A (erasable) - 3 words, A - A 2 
Symbolic Code: 20 words 
Highest symbol used is * 5. 
Program available as J171E 



John I. Derr 



J172E SCALAR PRODUCT OF TWO VECTORS -- FLOATING POINT 

J172 computes the usual inner product (x, y) w.r.t. the 

standard orthonormal basis over a Euclidean Vector Space, i.e. 

n 

(x,y) * J~ x i y i * 
i=l 

Denote (x,y) by V. All of the numbers [x.| and (y . ( must be 

in the packed internal form recognized by the Floating-Point 

Interpretive System. Upon exit from J172 Ywill be in the same 

form. 

The elements (x.l of the vector x » (x,, . .., x ) must be 

placed in H.S.S. as follows: 

L(x x ), L(x 2 ) - L(x 1 ) +A X , . .., L(x n ) "L(x 1 ) + (ii-1)a x j 

where A x is an integer and |a x I < (377) Q - 2 55 1Q . 

A similar statement holds for y. 

Calling sequence: 

a 020 a 010 (Link to J172) 

a+1 - L(f) |A X I L(x x ) 

a+2 ± n U y | L(y x ) 

a+3 Control returns here 

Here the -'s in steps a+1 and a+2 correspond only to A 

and A . respectively. The usage is non-Btandard in the sense 

that the word in a+1 and a+2 must not be complemented in the 

case of a negative sign. More precisely, for step a+1 take 

J |A X | if the sign position of the word in a+1 is 
AlL^l - ( 

I-|a x I if the sign position of the word in a+1 is 1 

Do likewise in the case of a+2. 
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Region A (erasable): 6 words A - A 5 
Symbolic Code: 31 words 
Highest symbol used: * 5 
Program available as: J172E 
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J173E 



A LINEAR NORM OP TWO VECTORS — FLOATING POINT 



.th 



If we define an m degree norm of the vector x = (x n , . ... f x„) 
. tlr 
Space by 



w.r.t. the standard orthonormal basis over a Euclidean Vector 



n 



x, 



m 



1/ra 



then J173 computes the first degree norm of x, i.e. 



n 



Ix| 

Denote |x| by V. All of the numbers fx.j must be in the packed 
internal form recognized by the Floating-Point Interpretive 
System. Upon exit from J173 X will be in the same form. 

The elements 1x^1 of the vector x must be placed in 
H.S.S. as follows: 

L(x 1 ), L(x g ) - L(x 1 ) + A, ..., L(x n ) - L^) + (n-l)A, where 
A is an integer and |a| < 377s * 2 55 10 « 



Calli ng Sequence : 

a 010 p (Link to J173) 

L(y) |a| l(x x ) 

000 n 000 0000 
Control returns here 



a 

a+1 
a+2 
a+3 



020 

+ 



Here the — in step a+1 corresponds only to \a\ . The usage is 
non-standard in the sense that the word in a+1 must not be 



complemented in the case of a negative sign. More precisely, 

take 

|A| if the sign position of the word in a+1 is 
A L(x 1 ) 

-]a| if the sign position of the word in a+1 is 1 
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Reglon A (erasable): 4 words AO - A3 
Symbolic Code: 23 words 
Hlghesty symbol used : * 5 
Program available as J173E. 
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J17*ffi MAXIMUM ELEMENT OP A VECTOR 

Let x ■ (x 1 , ..., x n ) be an n-tuple with real components. 
J174 will find the element x k S-faA such that |x k | > |x 1 | for 
i-1, . .., n and if for some I J k, |xj > | x ± i for i-1, . -., n, 
then k < i. The element x^ will be in the MQ upon exit from 
J174. In addition, L(x.) *2~™ will be in the A upon exit from 

J174. 

The elements [x.| of the vector x must be placed in 

H.S.S. as follows: 

L(x 1 ), L(x 2 ) * L(x 1 ) + A, . .., L(x n ) - L(x 1 ) + (n-l)A, where 

A is an integer and |a| < 377 Q » 2 55 10 - 

Calling Sequence: 

a 020 a 010 (link to J17*) 
a+1 - n |A| L(x 1 ) 
a+2 Control returns here 

Here the — in step a+1 corresponds only to A. The usage is 
non-standard in the sense that the word in a+1 must not be com- 
plemented in the case of a negative sign. More precisely, for 
step a+1 take 

( |a| if the sign position of the word in a+1 is 
A f(x 1 )] « ) 

-|a| if the sign position of the word in a+1 is 1 

Region A (erasable): 5 words (AO - A 1 )-) 

Symbolic Code: 23 words 

Highest symbol used: * 8 

Program available as J17^E. 
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J175E INTERCHANGE TWO VECTORS 

Let x - (x 1 , . .., x n ) and y - (y.^ ..., y n ) be two n- tuples 
with real components. Upon entry to J175 the following pair 
of instruction words will be executed for 1 » 1, 2, ..., n: 

004 L(x ± ) 020 L(y ± ) 
050 L(x ± ) 060 L(y ± ), 
i.e. y. -> L(x.) and x, — > L(y ± ) is performed in the natural 
order 1=1, 2, . . . , n. 

The elements fx. [ of the vector x must be placed in 

H.S.S. as follows: 

L(x 1 ), L(x 2 ) - LCx^ +A x , ..., L(x n ) - L^) + (n-l)A x * 

where A x is an integer and |a | < 7777g - 4095 10 - A similar 

statement holds for y. 

Calling sequence : 

a 020 a 010 p (link to J175) 

a+1 000 L(x x ) n L(y ]L ) 

a+2 ± A 000 A v 

a+3 Control returns here 

Here the — in step a+2 corresponds only to A„ and A . The usage 

y 

is non-standard in the sense that the word in a+2 must not be 
complemented in the case of a negative sign. More precisely, 
for step a+2 take 

r -. [ |a„| if the sign position of the word in a+2 is 

a[l( Xi )] - 

I-|a I if the sign position of the word in a+2 is 1 
The same decision holds for ArL(y.)"j- 
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Reglon A (erasable): 3 words AO - A2 
Symbolic Code: 21 words 
Highest symbol used: * 6 
Program available as: J175E. 
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J176E SOLUTION OP A MATRIX EQUATION AX « B WHERE A IS n x n 
AND NON-SINGULAR — FLOATING POINT 

A link to JI76 will result in the solution of the k 
systems of n simultaneous linear equations 
n__ 



£ 






in n unknowns for /» 1, ..., k. If we define the matrices 
A, X, B by 

/»11 «12 ••• *1* " ■" Ai (1) -1 (2) — "M A^'b^ 8 )..^^ 

J Hi ■ \.x-K (1) • u/^ {1) 



i 




>1 ••• V V" - X n (k '/ K (1) ... b,^)/ 



then the two statements concerning the function of JI76 are 

equivalent. JI76 also computes the determinant of A which we 

denote as det A. 

Calling Sequence : 

a 020 a 010 £ (Link to JI76) 
a+1 k n A L(a n ) 
a+2 Control returns here if det A » 
a+3 Control returns here if det A / 
Before linking into JI76 the user must place the elements 

a ij of A and b i of B into H.S.S. locations as follows: 

a ll a 12 ••• a ln b l (l) b l (2) ••• b l (k) 

a 21 a 22 

a nl a n2 "••• *nn b n (l) b ^ (2) • • • b M 

nx r\d nn n n n 



n 



-2- 



Basically, these locations differ by A. More precisely, 

loc ( a i,j+l) " loc ( a ij) + A ' J" 1 ' 2 ' •'•> n-1,' 
loc (& ±tl ) « loc (b 1 _ 1 ^ k ^)+2A, i / l, 

loc (b^ - loc (a 1 ) + A, and 

loc (b 1 ^ +1 >) - loc i* ± M) + A , l mlt 2i ..., k -l. 

Upon exit from J176 these same H.S.S. locations will 
contain 

a n a i2 ••• a m *i (1) *i (2) ••• x i (k) c i 

a 21 a 22 



(1) Y ( 2 ) v 00 

n n 



a nl a n2 '•• a nn x n *n ••• x -" c - 



In addition, det A will be in A 19* All of the numbers re- 
ferred to are in the packed internal form recognized by the 
Floating-point Interpretive System. The quantities k, n, and A, 
in the Calling Sequence are positive integers with the obvious 
upper bounds (7l) Q , (7777) 8 , and (377) 8 , respectively. Clearly, 
these are not least upper bounds. 

The matrix a » (<*ji) *s the n x n matrix obtained from A 
by the forward solution part of the elimination process. The 
,n x 1 matrices (x^, x 2 (/) , ..., xj^) are obtained in the 
back solution part of the method. The n x 1 matrix (c,, c 2 , ... 
c n ) should be ignored by the user. It functions only as a 
check on the computational accuracy of the forward and back- 
ward solutions. 
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Description of the Method 

The basic method used is the Qauss elimination method. In 
the forward solution the matrix A is reduced to a triangular 
matrix T. The solution of Tx » Eb is equivalent to the solution 
of the original equation Ax « b, where E * ITe. and the E. are 
elementary matrices, i.e. E jL M results in performing elementary 
row operations on^M. The back solution can be performed by a 
simple substitution using the equation Tx « Eb. 

The rule of formation of the sequence (E,, E 2 , ...) is 
known as CroUt's Method*. However, here the. method is modified 
so as to permute the rows of the resulting matrix, if necessary, 
to use the element o k± - Max ( | a ji| ) as the ^±± pivot element 

for i « 1, 2, ..., n. 

th 
The computation of the 1 row of T is checked versus 

(i+1) '10"' according to the Crout criteria for checking. 

Similarly, the calculation of the i tn row of X is checked 

2 7 
versus (n+l) -lO"'. This method of checking will probably suf- 
fice in most cases w. r. t. testing for machine malfunctions. 
Note that this check does not guarantee that the solution is 
"correct" in any normal sense, since the ultimate accuracy of 
the computed solution is limited by the inherent error of the 
original system of equations. 



*See Numerical Calculus , pp. 17-29, by W. E. Milne 
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NOTES 
(i) J172-175 are. slave routines w.r.t. JI76 and therefore 

must be used along with the Floating-Point System in 

conjunction with JI76. Further, J172-5 have the origins 

WO, XO, YO, and ZO, respectively, w.r.t. JI76. Hence, 

these regions must be assigned locations before JI76 is 

loaded. . . - 

(11) A 13X halt will occur in the 119th word of JI76 if the 
computational checking criteria is not met in any row 
during the forward solution. The calculation will con- 
tinue if the 00 button is pressed. 

(Hi) A 13X halt will occur in the l8lst word of JI76 if the 
computational checking criteria is not met in any row 
during the back solution. The calculation will continue 
if the 00 button is pressed, 
(iv) A 13X halt will occur In the 75th word of JI76 if det A«0. 
Control will link back to the main program if the 00 
button is pressed, 
(v) Clearly, the original matrices A and B are destroyed 
by J176. 
(vi) The relation 

n(n+k+l) < (4096-F) - 288 - 26 -M 

must always be satisfied when using JI76, where F « the 
number of Words used by the Floating-Point Interpretive 
System and M » the number of words in H.S.S. occupied by 
programs other than J172-6 and the Floating-Point System. 

In order to get some real- live numbers, suppose 
(4096 - F) » 2960, A » 1, and M * 115. Then n(n+k+l) < 2531 
must hold. If k»l, n < 49. if k»n, k»n<35- 
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Timing 

Since at the time of this writing no explicit times were 
known for the floating-poinfe operations, it follows that no 
explicit timing estimates could be made for the general case. 
However, the following floating-point operation counts should 
yield a reasonable measure of how the time will vary as a func- 
tion of n and k. 

Operation Counts for the Forward Solution 
( + ) n(n+2k+l) 



n 3 . k n 2 



2" 

(+) and (x) ,^ + *ii- for each 

3 * (approximate for large n or k) 

Operation Counts for the Backward Solution 

(+) and (x) n(n-l^(k+l) for each 

While operating in the SD Mode five seconds were required 
for a solution with n«7 and k«l. This example can be used as a 
reference point in the (n,k) plane to compute approximate absolute 
tlme3 using the above formulae. 

J176 Storage (without slaves) 

Reg. A (erasable) 20 words (A 6 - A 25) 

Symbolic Code: 190 words 

Highest Symbol Used: * 41. 
Storage Used by Slave Routines (J172-J175) 

Reg. A 6 words (A - A 5) (Note that the erasable storage 
used by J172 - J175 does not overlap that used by J176.) 

Symbolic Code: 98 words 

Highest Symbol Used: * 8 
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Combined Storage Used by J172 - JI76 
Reg. A 26 words (A - A 25) 
Symbolic Code: 288 words 
Highest Symbol Used: * kl 

Lattice Diagram Describing Master-Slave Relations 



J172 



J173 



J17 1 * 



J175 
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J177A AUTOMATIC SOLUTION OP A MATRIX EQUATION AX-B WHERE 
A IS n x n AND NON-SINGULAR - FLOATING POINT 

J177 is an automatic version of J176. The user needs only 
to record the necessary input data in punched cards, place 
these cards immediately behind J177, and press the LOAD button. 
The solution matrix, X*, which approximates X in the equation 
AX»B will be computed and printed for each equation. 

Input Form 

Information should be punched in the Floating point Data 

Form as follows: 



1st card for a problem 

(1) 
+ EXP MANTISSA 



(2) 

EXP MANTISSA 



n 



ID 

I 



Any decimal 
information 
for problem ID 



-order of matrix A 



L|+ if A is not to be printed 
— if A is to be printed 



L 



number of columns 
in the matrices 
X and B 



+ if (a.,) is not to be printed 
- if (a,,) is to be printed 



The elements of A must be punched by rows into consecu- 
tive positions of the cards beginning with the second card. 
Each row must begin with position (l) of a card and if an EF 
mark (12 punch (+) in column 80) is encountered prior to the 
reading of the n th element of a given row, then J177 will assume 
that the remaining elements of the row are 0. (This does not, 
of course, affect the six elements of A which were punched 
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into the card with the EP mark.) 

The elements of B must be punched by columns into con- 
secutive positions of the cards beginning with the first card 
following the cards for A. Each column must begin with 
position (l) of a card. 

The solutions for a sequence of equations AX=B can be 
evaluated by placing the input cards for the equations in 
sequential order behind J177. If the input cards are followed 
by two blank cards, the collator will be on Select following 
the completion of the last problem. 

Output Form 

The page' will be ejected prior to the beginning of each 
problem. The numbers printed will be in the external floating 
point form. The print format is that described for the 013 
(PNT) order in the Floating-Point writeup. The printing for 
one problem takes place as follows: 

.-A r B C 

Information in. + n ID + k 

positions (1) and 
(2) of 1st Input 
Card 

Space 



< 



If A is printed, then the printing for the 1 row is 

as follows: 

Row number i 

Elements of the row 

begin here a n a ±2 a ±3 



If A is printed, the page is ejected following the 
printing of the last row. 
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A B C 

Determinant det A 

Space 

If ( a ij) is printed, the same procedure Ib followed as 
for A. 

S is printed by columns The printing for the^ th column 

is as follows: 

Column number Jt 

Elements of the column / n t \ , \ 

begin here ^ x ' x^ £) x U) 

Notes ; 

(1) The Inequality n(n+k+l) < 2529 must be satisfied by n and 
k. In particular, if k»l, then n must not exceed kg and 
if k»n, then n must not exceed 35. If n(n+k+l) > 2529, 
the program will halt at 5334 Q with a 130 5331 order. 

(2) A 13X halt will occur at 5172g if the computational check- 
ing criteria is not met in any row during the forward 
solution. The calculation will continue if the 00 button 
is pressed. 

(3) A 13X halt will occur at 5270g if the computational check- 
ing criteria is not met in any row during the back solu- 
tion. The calculation will continue if the 00 button is 
pressed. 

(4) A 13X halt will occur at 51l6g if det AO. If the 00 
button is pressed, then det A and the current state of 
the (ctjLj) and X (or B) matrices will be printed. The next 
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problem in sequence will then be started if it exists. 
(5) The user is referred to the JI76 write-up for a descrip- 
tion of the method. 

Program available as J177A 
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J178E LEAST SQUARES POLYNOMIAL APPROXIMATION - FLOATING POINT 

JI78 will compute the best possible polynomial approxima- 
tion to a set of data in the sense of least squares. The data 
consists of a set of number pairs (x^y^j for i = 1, 2, .. ., N. 
The set of number pairs determine a relation which we denote as 
y (x) and JI78 approximates y(x) by a polynomial, 

M A * 

y a, x J - y (x) for 1 < M < 5- -, 

J178 must be used in conjunction with the current version 
of the Floating Point System. All of the numbers x i and y ± 
must be in the packed internal form and must be placed in 
consecutive H.S.S. locations as follows: 
x l ,y l' ' x 2 ,y 2 , > "•' x N' y N' * 

Calling Sequence: 

a 020 a 010 (Link to J178) 

a+1 06 L(a Q ) N L(x 1 ) 
a+2 Error Return — det T «■ 
a+3 Control returns here 
Here, 6 ■ 6 Q 6^^ 6 2 63 6^ 6^ and 



b j^ 



1 if G < j < M 

if j > i-; 



Ur>on exit from JI78, the coefficients, a, for j - 0, 
1, ... , M, of y* (x) will be in consecutive 
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H.S.S. locations beginning with L(a Q ) . JI78 also computes 

y (x ± ) *= y ± for i m l, 2, ..., N and the y*, together with the 

corresponding pairs (x^y^ are stored as triplets in the form: 

x l ,y l ,y l > x 2 ,y 2 ,y 2 ' *••' x N ,y N ,y N 

The a. and y^ are in the packed Internal form. P 

Method : 



N 



The fundamental least squares method involves finding the 
which will minimize 
N 



[y(x ± ) - y*(x ± )J 



The values of a ± are found explicitly as the solution of a 
matrix equation Ax = b . 

As the degree, M, of the polynomial y (x) increases, the 
accuracy of the computed a. decreases rapidly. The loss of 
significant digits occurs in the solution of the matrix equation 
Ax = b . 

In order to mitigate this inherent loss of information, 
the basic least squares method has been modified according to a 
process developed at Lockheed Aircraft Co. for their FLOP coding 
system. A description of this modified process follows below. 

First normalize the fx ± \ to the interval [-1, +l] by 
setting x' ± = x ± * |x jL | max . The modification then consists 
of replacing the (x^j used in the standard method by the cor- 
responding Chebyshev polynomials JT. (x'^j for J= 0, 1, . .., M. 
The ( Tj (x' ± )l are defined inductively by T Q (x'j) ■ 1, 



1 See Milne, Numerical Calculus, pp. 242,3 
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T l < x 'i> " x 'i' T j( x 'l) - 2x 'i' T J-l< x, i> - T j- 2 ( x 'l' for 

j = 2, 3> •••> M. 

Then proceed in the ordinary least squares fashion to 
find the coefficients ft , ] of the polynomial 

M 

y~ t-i'T, (x) . The matrix equation Ax » b is replaced by the 

J«0 

new equation Tt = d under the transformation x 



J 



T, (x 1 ) where 



T = 



I T T I Vl • • • I T T M 
I T 1 T 



I T M T Z T m T 1 ' ' * I T M T 



M 





£ Vi 




V 




E T l y i 




*i 


, d - 


• 
• 
• 


, t - 


• 
• 
• 




_E Vi. 




>. 



r 



In the above we have used the shorthand notation 

t T p T « mJ L . T p {x ^ ] ' T * (x 'i } and L V " fc T p (x, i ),y i 



i - 1 



1=1 



It remains to compute the [a,] from the jt.] by essentially 
performing the inverse of the transformation x^ — > T> (x')« 



We set 



V~ t. T. (x') = y~ a.x J and expanding the T, we have 

t + t x • x' + t £] (p{x') 2 - l) + t 3 (M*') 3 - 3(x')) 

+ t 4 (8(x') 4 - 8(x») 2 + l) + t 5 [l6(x') 5 - 20(x') 3 + 5(x')] 



M 



a .x v 

J 



Recalling that x' = x 4- x i , and equating like coefficients 
cf x^ we gefc by proceeding inductively on M: 
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for M=l, a Q - t Q and a. ± - t ± 4- |x i | max 

for ft.2, a Q - t Q - t 2 , a 1 = t x 4 Jx^ and a. - St. 4 (jxj^ 

# 

for M-5, a - t - t 2 + t v a;L - (t x - 3t 3 + 5t & ) -4- |x i | max , 
a 2 = (2b 2 - 8t 4 ) 4- (|x i [ ma ^f, a 3 - (^ - 20t 5 ) 4 (jx,]^ 

a 4 - 3t 4 4 dx 1 | ma ^, and a 5 - 16* 5 4 flxj^ . 
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NOTES 

(1) J172, J173, J175, and J195 (or J174) are slaves to J196 
(as well as to JI78) and hence must be assigned locations 
prior to the loading of J196. Further, JI96, J191* and 
JI87 are slaves to JI78 and must be assigned locations 
before JI78 is loaded. The regions associated with all 

of the slaves can be ascertained from the lattice diagram. 

(2) J174 may be used in place of J195 if all of the numbers 
(x,,y,| are normalized and the floating point system is 
in the N mode . 

(3) For an explanation of a 13X halt which occurs in J196, 
see Notes (ii), (lii), and (iv) of the JI96 write-up. 

The computational checking criteria can fail to be met due 
to a loss of significant digits in the solution of the 
matrix equation Tt « d. The chance that a halt will occur 
increases with the degree M of the polynomial approxima- 
tion. 
(*0 In general, the accuracy of the computed ja^ ] can be 

increased by first translating the set of jx.] into the 



(x. - m\ where m is the mean of the (x.l , i.e. 



x. 1 -t N. Then enter JI78 with the number pairs 



x. - m, y. \. Upon exit from JI78 use the computed 
coefficients with the argument x-m or perform the inverse 
transformation on the coefficients to get the coefficients 
w.r.t. the [x.l . Usually, this additional procedure will 
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be necessary only for large M and strongly non-zero m. 

Timing 

The Legendre polynomials of degree one through five were 
used as test problems with 21 points, i.e. M = 1, 2, 3> ^> 5 
and N = 21. The following times were recorded while operating 
in the SD mode : 



M - 1 


4 sec . 


M - 2 


7 sec . 


M = 3 


10 sec. 


M - 4 


14 sec. 




M - 5 


18 sec. 





Then, roughly speaking, the operating time increases directly 
as M. In the case M = 1, 7 seconds were required for N = 42. 
Apparently, then the variation of time with N is also approxi- 
mately direct. 

Accuracy 

Using x. = 0(.05)l and the exact corresponding values of 
y. obtained from a table of Legendre polynomials of degree M 
the number of correct significant digits obtained in the com- 
puted coefficients were as follows: 





M » 1 


9 digits 




M ■ 2 


6 digits 


M - 3 


5 digits 


M m 4 


3 digits 


M - 5 


2 digits 



By translating the interval [b,i] to [-.5> -5] the follow- 
ing results were obtained with all other conditions unchanged: 



M - 2 


9 digits 


M - 3 


9 digits 


M « 4 


8(-) digits 


M - 5 


7 digits 



Observe that in each of the cases listed, the accuracy 
obtained for the translated interval C-.5^«5] is better than 
that obtained for the original interval [jO,l] . 
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J178 Storage (without slaves) 

Region A (erasable) 76 words (A12-A87) 

Symbolic Code : 201 words 

Highest Symbol Used: * 56 
Storage Used by Slaves (J172, J173* J175> JI87, J195.J196 and J19l) 

Region A (erasable) 26 words (AO - A25) 

Symbolic Code: 381 words 

Highest Symbol Used: * kl 
Combined Storage Used by JI78 and Slaves 

Region A (erasable) 88 words (AO - A87) 

Symbolic Code: 582 words 
Lattice Diagram Describing Master-Slave Relations 



J195 (J17M 



J175 




John Derr 



J179A 



Y-y-i>o 



AUTOMATIC LEAST SQUARES POLYNOMIAL APPROXIMATION — 
FLOATING POINT 



' J179 is an automatic version of JI78. The user needs only 

to record the necessary input data in punched cards, place 

these cards immediately behind J179V and press the LOAD button. 

The coefficients [a,] of the approximating polynomial 

M 



,f(x) 




a,x 

1 



will be computed and printed for each header card. 



pos (l) S 



Input Form 

Information should be punched in the Floating Point Data 

Form as follows: 

{if data triplets are to be printed 
if data triplets are not to be printed 
M * degree of polynomial f (x) 
ID (any decimal information) 
[+* if data cards follow 
I- if no data cards follow 
Blank 

N ■» number of points 
Blank (or +) 
(00 if ( x i'yi' r i) is to be P r ^ ted 



pos (2) 



pos (3) 



EXP 

MANTISSA 

S 

EXP 

MANTISSA 

S 

EXP 



MANTISSA 



loi if (x ± »y ± *y ± ) is to be printed 
fTif <Tj«0 for A < J < M 2 . 



(0 otherwise 

Positions (4), (5), and (6) .of the header card are not inter- 
preted by J179A. 



1 r ± m y ± * - y ± . Hence, y x * 

2 See J178 write-up. 



r l + Y±- 
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(x i ,y i )Data Cards 

•The number pairs (x^y,) must be punched in consecutive 
three-position blocks beginning with the first card following 
the header card. 

(1) (2) (3) (4) (5) (6) 

1st Card x.^ y 1 — x 2 y g — 

• •••••• 

• ••♦••• 

last card (N even) Xjj^ y^ — ^ y N — - + 
(N odd) x N y N — — — — + 

Further, there must be an end of file mark (12 punch) in column 
8o of the last data card. 

There is a one-to-one correspondence between header cards 
and problems. A sequence of problems can be solved by placing 
the associated header cards together with the data cards 
following (if any) in sequential order behind J179. If the 
entire deck of input cards is followed by two blank cards, the 
console will show "READER" following the completion of the last 
problem. 

Output Form 

The page will be ejected prior to the beginning of each 
problem. The numbers printed will be in the external floating 
point form. The print format is that described for the 017 
(PNT) order in the Floating-Point write-up. The printing for 
one problem takes place as follows: 
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S EXP MAN S EXP MAN | ** X , **¥ 
information -M ID ± 00 N ± VL /O 

In header card 

Space ~ 

Coefficients a a x a 2 

• • • 

Space ~~~~~ 

If the number triplets are to be printed, they are printed 
one triplet per line in the natural order. 

x l 
x 2 

*N 

Notes 

(1) Prior to entry irito J178, the set of {x.A is replaced by 
the set of (x ± - mX where 

/ N \ 

■» N. 

Upon exit from JI78, J194 is used to compute the coeffi- 
cients [aA* 

(2) 1 < M < 5 and M+l < N < 120 1 mu.st hold. 

(3) If <Vo, then the decimal equivalent of the octal number 

<f 4 4 ^3 ^ ^5 must be P resented to J179 ' Por exara P le ; 
suppose M»5 and it is desired to impose the oonditlon that 



*1 


V^l* 


y 2 

« 


r 2 /y 2 * 

• 


y N 


vv 




1 The upper bound of 120 on N was artificially imposed, 



-4- 



i 
the odd powers of x shall vanish. Hence, we want 

a x - a* - a 5 - 0. Then £- (101 010) 2 • (52)3 - (^ 2 )i - 

S m 42 Is presented to J179* 

(4) A 13X halt will occur at (2434) Q if the computational 
checking. criteria is not met in any row during the forward 
solution in JI96. The calculation will continue if the 

(50 button is pressed. This halt can, occur due to the loss 
of significant digits in the matrix solution. 

(5) A -13X halt will occur at (2533)3 if the computational 
checking criteria is not met in any row during the back 
solution. The calculation will continue if the 00 button 
is pressed. This halt can occur due to the loss of sig- 
nificant digits in the matrix solution. 

(6) A 13X halt will occur at (2357) 8 if det T « 0. If the 
00 button is pressed, then J179 will exit J196 and JI78. 
If printing occurs upon completion of this problem, the 
results will be incorrect. J179 will continue ahead' to the 
next problem if there is one. 

(7) A check sum 13X halt at (00l4) Q indioates that J179 has 
probably been loaded incorrectly under the control of J180A. 
The entire loading process should be restarted. 

Accuracy 

Using x ± *> 0(.05)l and the exact corresponding values of 
y i obtained from a table of Legendre polynomials of degrees 
M « 2, 3, 4, 5 the number of correct significant digits obtained 
in the computed coefficients was as follows: 
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M-2 9 digits M-3 9 digits 
M-4 8(-) digits M-5 7 digits 

Timing 

See the discussion of timing in the J178 write-up. The 
times there do not include input-output times, however. 

Program available as J179A. 



John Derr 



J180A LOADER FOR STYLE P CARDS WITH BLOCK CHECK SUMS 

Jl80 is a one-card self-loading routine which loads style P 
cards from the primary feed. Jl80 works exactly as J135 does, 
except that when a row containing 010*0006 in the control field 
is encountered, it sums the high-speed storage (modulo 2 ) 
between previously specified cells a and b, inclusively. 
If this sum agrees with a previously specified check sum, it 
proceeds to the next card. If the sum does not agree with the 
check sum a 13X stop occurs. To continue reading, press the 
GO button. The row containing the transfer instruction must 
have: 1XX XXXX XXX a in the information field and informa- 
tion must have previously been placed (presumably by the pre- 
ceding two rows) in OOI53 and 00l6g as follows: 

0015g XXX XXXX XXX b-a 

0016q The check sum 
Jl8l and J182 prepare cards for loading by Jl80. The 
preparation, of course, includes the extra three rows. Jl80 
will also load style P cards without check sums or mixed cards. 

Storage: 0001 to 00l6 Octal. 

Error Stops: Left 0014 Octal. To proceed, press 00 button. 
Timing: Reads cards at 2^0 cards per minute — except when 
check summing. 

Available as Jl80A. 



Norman Shapiro 



J181E PUNCH STYLE F CARDS WITH BLOCK CHECK SUMS 

Jl8l will punch a block of storage from a to b In 
Style P, with three extra rows containing the block check sum 
information, ready for reloading by Jl80. C 1 _ ig are left blank 
in the cards punched. 

As an option the block a to b can be punched so as to 

12 

be reloaded into the block (a+c) to (b+c) (modulo 2 ) by 
placing c in the right address of * 0. Once c is placed 
there, it will remain unless further modified. The restric- 
tion (a+c) (modulo 2 12 ) < (b+c) (modulo 2 12 ) must be satisfied. 

Calling sequence : 

a 020 a 010 Link to Jl8l 

a+1 a b 

Control returns to left of a+2 
Symbolic Code: 31 words 
Location of * 0: Last word of routine 
Region A (erasable): A to A 2 
Highest Symbol Used: * 13 

Timing: Punches cards at 100 cards per minute. 
Program available as Jl8lE 



Norman Shapiro 



J182E PUNCH STY!* F WITH I.D. AND BLOCK CHECK SUM 

JX82 will punch a block of storage from a to b In style F 
.-with a block check bum ready for Reloading by JlgO. Identifi- 
cation specified in the calling sequence is punched in C^ of 
each card. A sequence number beginning with 001 and Increasing 
by one with each card is punched in Cg. 8 of each card. 

Option^: The block fro* a to b can be punched so as to be 
reloaded to to the block from a + c to b + c (mod 2 12 ) by placing c 

ing. 

Optlon 2: The three digits of the sequence number are 
stored by J182 in cells All. A12 and A13- They are normally 
pre3 et to zero and then modified so. as to increase the sequence 
number by one prior to punching every card including the first 
card. The presetting to sero (but not the modification) can be 
suppressed by entering the routine at the right of the first 
W0 rd instead of the left. This option can be used to begin 
sequencing with any value (including 000 by presetting to 0, 
and -1) and to punch several blocks into one consecutively 
sequenced deck (by suppressing the presetting to zero and not 
otherwise modifying All, A12 and A13) . The sequence number digits 
are scaled by 2 



Calling sequence: 

a 020 a Olkp 



a+1 a b 
a+2 X l 

a+3 X 2 



a+^ X 3 

a+5 X ^ 

a+6 X 5 

a+T control returns to left of a+7 

x are the identification in the character code 
where x r .-., 5 This co de is attained by assign- 

ee, * - — ^ ;:' to ^ u and punc hes, respective!, 

;r;r.. d - — - — --• * **"* " 
: ;:: ,—.. - — — - settins to zero - 

Otherwise, set k»0. 
Symbolic Code: 115 words 
Region A Erasable - AO to A21 

Highest Symbol Used: *4l 

, v hpif sneed, 50 cards per minute. 
Timing: Punches cards at half speed, 

^ Jl8 2 is the only program which punches style , 
anything less than full speed. 

Available as J182E 



Norman Shapiro 



J183A MATRIX INVERSION 

JI83 will solve systems of equations and/or invert matrices 
of order n (1 < n < 40 ) . All arithmetic for this routine is 
carried out in double -precis ion fixed-point to guarantee maximum 
accuracy. 

The matrix of coefficients and the right-hand side for this 
routine are input in decimal, one per card, having the following 
format: 

Col. Contents 

17-19 J (1 < J < n) J - for the right-hand side 
20-22 1 (1 < 1 < n) 

24-27 Integral portion of a. 

J 
28-33 Fractional portion of a. 

J 
3^ Sign (Blank is +; 1 is minus) 

The remainder of the card may contain any information desired. 

The matrix is then printed column by column. The right-hand 

side is not printed. 

It is not necessary to enter the zero elements of the system 
since HSS is cleared to zero from 610 through 4095 each time the 
Input routine is called for. The elements may be in any order. 
Each matrix or system of equations must be headed by a single 
card with the order of the system, n, in J and cols. 20-34 blank, 
and followed by a blank card to signify the end of the deck. 
(This input format is the same as the JOHNNIAC simplex code.) 

As many systems of equations to be solved or matrices to 
be inverted as desired may be entered behind the program 
deck, Just so each blank deck has the proper header card and is 
followed by a blank. Two additional blank cards are necessary 
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NIA - (0152)3 The matrix is singular or poorly conditioned. 
NIA - (0317)3 Overflow, rescale the matrix. 
NIA - (0052) 8 H2 on, Matrix inverted, hit GO to read in 

next matrix. 

JI83 uses all of HSS and the Drum. 

Program available as ;Jl83A. 

Time: The only estimate available is for inverting a 2k order 

matrix -- this took roughly three minutes of computing time. 



M. I. Bernstein 



3-26-56 

J184A MATRIX ASSEMBLY 

J184 assembles a matrix of order n (1 < n < 40) into 
binary for use with Jl4lA in place of the binary inverse 
obtained from J183A. 

The inputs for J184 follow exactly the same format and 
rules as the inputs for JI83. It is possible to assemble more 
than one matrix with Jl84, Just so each matrix has the proper 
header card (see JI83 write-up) and is followed by a blank. 
After each matrix is punched, and printed row by row, there 
is a 13X stop with NIA equal to (Ol65)g. To assemble the next 
matrix, hit 00. 

Program stops: 

NIA « (0055 )g* No header card for matrix or i or J is 
greater than h. 

NIA - (Ol65)g, Assembly completed. 
J184 use 8 all of HSS. 

Program available as J184A. 



M. I. Bernstein 
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J185E INTEGRATION OP n SIMULTANEOUS SECOND-ORDER 

DIFFERENTIAL EQUATIONS WITH INITIAL CONDITIONS 
SPECIFIED 

JI85 integrates n simultaneous second-order differential 
equations of the form: 

y i " f i (y O' y l' •"• y n-l' y O' y l' '" y n-l' x) 

i « 0, 1, ... n-1 
where differentiation is with respect to x. Each time JI85 
is entered, integration is carried out over one step Ax , 
replacing the values of y ± y (Ax)y 1Jf and (Ax) 2 y* at x - x ' 
by y^ J+1 , (ax) $ u J+r and <fi*)\ J+1 at x « x J+1 - Xj +Ax. 
An auxiliary closed subroutine is required, which when entered 
with the calling sequence: 

a 020 a 010 F 

a+1 Control returns here 
evaluates (ax) y^ and stores these quantities in 0.0+1'. The 
y ± and (Ax)y are located in E.0+1 and E.O+l+n respectively. If 
required, the independent variable x should be calculated by 
the master routine. 

Before JI85 is entered for the first time the values of 

y 10' fc x )y±o> and ( Ax ) y 10 at x - x Q must be located in the 
H. S. S. as follows: 

■ t 

Location Contents 

B.O + i y ±o 

3.0 + i + n (ax) y 1Q 

E.O + i + 2n ( Ax ) 2 yj.o 

i •» 0, 1, ... n-1 
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After integration at any x « x,, these storage positions con- 
tain y ± ., (Ax) y ± y and (ax) y*. Two constants must be pro- 
vided at all times in region D as follows; 
Location Contents 



D.O 
D.l 



n x 2 J * (n is number of equation, 
1, 2 ...) 



n 



(e la the tolerance on 
convergence, see Method) 



Calling sequence : 

a 020 a 010 V 
a+1 Control returns here 

H. S. S. Storage Requirements: 



Symbolic Code 
Region A 
Region D 
Region E 
Region P 
Region G 



41 words 
3 words 
2 words 

3n words 

n words 



(* 19 highest symbol used) 

erasable 

constants 

variables 

auxiliary routine 

erasable except for 
auxiliary routine 



Total: (46+4n) words + auxiliary routine 
Duration: 0.6 + 2.2n + I (0.3 + 3«8n + D) ms where 
I « number of iterations for an interval, 
D - time of auxiliary routine and 
n « number of equations. 
Method: The numerical procedure, a modified Euler procedure, 
is given by equations 1, 2, and 3. 
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Ax 



y i,j+i,k - y±,j + t- y±,j + yi,j+i,k 



(i) 



y i,j + i,k " y i,j +AX y i,j + t*0 2 {*-*} ( y i,jJ + M 2 * y i, J+ i,k (2) 



y i,j+i 



y i,j+i 



y ^L>J+l 



i,J+l,k 



i,J+l,k 



l,J+l,k J 



(3) 



if for all i the relation 



fex)' 



i,J+l,k 



- y 



i,J+l,k-l 



< € is satisfied. 



In the above equations : 

i indicates the variable of integration, 

J indicates the step of integration, 

k indicates the number of iterations. 
The constant is set equal to 1/6 in * 18 of the library routine. 
Other values of in the range < < 1/4 are acceptable . 

Sufficient conditions to guarantee that the procedure will 

converge and that numbers stay in bounds can be stated, but use 

of these conditions leads to extremely short intervals. In 

practice, if units of measure and a value of Ax are chosen so that 

numbers are within bounds within the auxiliary routine, the value ' 

of Ax so chosen is usually satisfactory for convergence of the 

numerical procedure. 

This program was adapted from University of Illinois Code P3. 
Program available as JI85E. 

Nancy Brooks 



->-*-! -^ 



J186E FIXED POINT SQUARE ROOT WITH DOUBLE PRECISION 
ARGUMENT 



J186 is a "fancy" version of J171E in that it evaluates 

the positive square root of a double-precision number 

a =» a„ + 2"^a, . 
o l 



Calling sequence: 



a in A.O 
o 

a, in A.l 



020 $ 010 ^ 
Control return: to the left of $ 1 with the single precision 

square root x of the double precision number a in 

the accumulator. 
Symbolic Code: 25 words* 
Region A: 4 words erasable 



Error Halt: (* 9 highest symbol used) 



Program available as J186E 



a negative, or 

a « and a.^ negative 



Nancy Brooks 
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J187E LINEAR COMBINATION OP TWO VECTORS — FLOATING POINT 

JI87 computes the linear combination z = p x + y of the 
vectors x and y over a Euclidean Vector Space. Here x, y, 
and z are denoted by the n-tuples (x,, ..., x ), (y,, ..., y ), 
and (z 1 , ..., z n ) . 3 is a scalar. All of the numbers ( x. ] , 
fy 1 | , and 3 must be in the packed internal form recognized by 
the Floating-Point Interpretive System. Upon exit from JI87, 
the numbers (zA will be in the same form. 

The elements fx^l of the vector x must be placed in 
H.S.S. as follows: 

L(x 1 ), L(x 2 ) - L(x 1 ) + A x , . .., L(x n ) = Lfx^ + (n-l) A x , 
where A x is an integer and [a x I < 377 Q ■ 2 55 1Q . Similar state- 
ments hold for y and z . 



Calling Sequence: 



a 


020 


a 


010 





a+1 
a+2 
a+3 


+ 

+ 
+ 


L(p) 

n 

0000 


' A xl 

|A y' 


L(x x ) 

L(y x ) 
L(z 1 ) 


a+4 


Control returns he 


jre 



(Link to JI87) 



Here the - in steps a+1, a+2, and a+3 correspond only to A , 
A , and A z respectively. The usage is non-standard in the 
sense that the words in a+1, a+2, and a+3 must not be comple- 
mented in the case of a negative sign. More precisely, for 
step a+1 take 

r , vl I ' A vl lf the si &n position of the word in a+1 is 

a[l( Xi )J = 

\-lA x l if the sign position of the word in a+1 is 1 
Steps a+2 and a+3 can be interpreted in an analagous manner. 
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Two variations in the use of JI87 are permitted. Together 
with the most general form already described there are three 
mutually exclusive functions available: 

(i) p x + y, L (p), L (y 1 ) must be non-zero, 
(ii) x + y, L (p) must be zero (blank), 
(iii) p x , L(p) must be non-zero and 

L(y) must be zero (blank) . 

Essentially, JI87 consists of three programs in one. The 
basic computational loop for each of the three functions de- 
scribed is optimal in the sense that the number of program 
steps is minimized subject to the condition that the smallest 
possible number of program steps shall be executed in the 
Floating-Point system. 

Region A (erasable): 12 words (AO - All) 
Symbolic Code: 65 words 
Highest symbol used: * 15 
Program available as: JI87E. 



John Derr 
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J188E K X 

K = 2, e, or 10. X in MQ. 
Calling Sequence : 



a 


020 a 010 XXX (arbitrary symbol) 


a+1 


q 1 -2" 18 + k-2" 39 


a+2 


Control returns here. 




k - 2 X 




1 e x 




2 10 X 



leaves K* in MQ normalized. 

— 1 ft X 

leaves q «2 in Accumulator where q 2 is scale factor for K . 
If q 2 > 128 both the Accumulator and MQ are left zero, 
q, • location of binary point in X. 
~ 90 < q x < 37 

Approximate maximum time : 23 ms. 
Accuracy: Approximately 9 S.D. 
Program stop: 3.009 <3U exceeds 37 
Highest Symbol Used: * 60 
Symbolic Code: 6l words 
Region A (erasable): 3 words 



Program available as 

J188E 



Marvin Shapiro 



J189B 
J189E 



IT (INTERPRET T -SWITCHES) 



JI89 is an open subroutine which decodes the condition of 
the three T-switches into an eight-way optional transfer. A 
table of eight transfer orders must be provided in memory loca- 
tions 5 through 6+3 as follows: 



LOC 


OP 


ADDR 


OP 


ADDR 


6. 


01? 


>0 


01? 


>i 


6+1 


01? 


\ 


01? 


S 


6+2 


01? 


\ 


01? 


s 


6+3 


01? 


\ 


01? 


s 


quenc 


e: 


/010 

V130 


5 J x 


2" 18 in ACC 




a_ 


.*. n 010 


P 





Control return: 



To 


T l 


T 2 


T 3 


6 L 


• 


m 


• 


6 R 


# 


• 


O 


6+l L 


• 





' # 


6+l R 


• 





O 


6+2 L 


O 


# 


• 


<» 2 R 


O 


• 


O 


6+3 L 


O 


0. 


• 


«R 


O 


0. 


O 



% - On 
O - Off 
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Program length: 7 words 



Program atop: 

Program : 

LOC 

3 

0+1 

3+2 

3+3 
3+4 

3+5 
p+6 



(style B region C 

(style E symbolic (* 5 highest symbol) 

4 words 5 through 6+3 for exit table 



134 .13+4 in word 3+4 as a result of an illegal 
entry . 



OP 

015 
024 
024 
024 



004 



ADDR 

3+1 
3+5 
3+5 
3+6 

1 




OP 

024 
016 
017 
053 

134 



ADDR 

3+5 
3+2 

3+3 

3+4 
3+4 



Program available as J189B 

J189E 



Nancy Brooks and Mort Bernstein 



J190E LOGARITHM - BASE e or 10 

2~39 log x base e or 10 is developed in A, MQ. MQ Q is 
not part of the answer. 
Range: < X < 1 

If X ■ the program will stop at 3.030. 
Calling sequence : 

a 020 a 010 XXX 

afl 000 L(X) 000 000° *l r r lm e 10 

a+2 Control returns here 

Region A (erasable): 6 words 

Symbolic code: 39 words 

Highest symbol used: * 38 

Logarithms accurate to 9 decimal places. 

Program available as J190E. 



Marvin Shapiro 



J191E POLYNOMIAL FUNCTION EVALUATION -- FLOATING POINT 

For a given value of x, J191 will compute 

N , 
p(x) m J~ a± x , N>1. 

i-O" 

J191 must be used in. conjunction with the current version of 
the Floating Point System and x , p(x), and the coefficients 
a 0' a l' '*•' a N must be ln the Packed internal form. Further, 
the coefficients must be placed in H.S.S. locations as follows: 
L(a Q ), L(a 1 ) « L(a Q ) + A, — , L(a N ) » L(a Q ) + N-A, where A is 
an integer and |a| < (377) 8 - ( 2 55) 1Q . 

Calling Sequence ; 

a 020 a 010 (Link to JI91) 
a+1 t L (a N ) a n 

a+2 ■ L(x) Lr P (x)] 

a+3 Control returns here 
Here, the - in step a+1 corresponds only to A . The usage is non- 
standard in the sense that the word in a+1 must not be comple- 
mented in case of a minus sign. More precisely, for step a+1 
take 

f |a| if the sign position of the word in a+1 is 0. 
A[L( ai )] - 

/-|a| if the sign position of the word in a+1 is 1. 

Method ; 

P(x) - P N (x), where p N (x) is generated by recursively 
defining Pl (x) - a^ + a^ and P i+1 (x) - a^^ + x PjL (x) forj 

1-1, 2, — ,N-1. 
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Timing : 

No absolute times have been recorded, but N floating- 
point additions and multiplications are performed. Hence, for 
sufficiently large N the time will vary directly as N. 

Region A (erasable): 3 words AO - A2 
Symbolic code: 26 words 
Highest symbol used: * 8 
Program available as: J191E 



John I. Derr 
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J1Q2E • INTEGRATION BY SIMPSON'S RULE WITH PRESCRIBED ERROR 
FLOATING POINT 



J192 computes ^ b f(x)dx, where f(x) is computed by an 
auxiliary subroutine written by the programmer. J192 divides 
the domain from a to b, a < to, into N intervals of length A^ 
i - 1, 2, ..., N, and computes the area^. (5) for each sub- 
Interval by Simpson's 5 point formula. The {a ± ] are chosen 
small enough so that the relative error E„ in the interval 
a to a + A H is less than the error prescribed by the pro- 
grammer, i.e. so that 

E M" M .(5) <£ > 

) -A 

where f^ Z) ■- the area over the i th Interval as computed by 

Simpsons' 3 pt. formula. 
/(5) . the area over the i th interval as computed by 

Simpson's 5 pt. formula, 
and C » the error prescribed by the programmer. 

The maximum error possible over the entire interval from a to b 
is N£max P(x) where P(x) -jf x f(t)dt. The method Is a modifi- 
cation of that described in Scarborough . 



1 Scarborough, Numerical Mathematical Analysis , 3rd edition, 
p. 178. 
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Calllng sequence: 

a 020 a 010 p 

a+1 a 

a+2 b 

a+3 A-, 

a+4 e 

a+5 Control returns here in floating point 

a, b, A-p and C must be in the floating point data form. 
If the starting A is not prescribed but is to be determined by 
J192, step a+3 must be negative. 

The computational procedure is as follows: 

Define h. = £■!• . Let h. be a temporary value for h i . 

1 1 

If step a+3 is minus, make A, » b-a, otherwise make A, the con- 
tents of a+3. 

1 1 

If E, > € replace h, by h,/2. Repeat this halving proced- 
ure until either E 1 < 6 or h /2 < 10" (a x + A^). In both 
cases the last h, is used in computing / • l n tne latter 
case a row of 11 nines is printed to indicate that the error 
criterion was not met. This process is used for each interval 

i ■ 1, 2, . . ., N. 

h. +• Vi 

The constant 10" is located in the 97 (last) word. Thus 

the 10" (a M +A M ) criterion can be changed by the programmer to 

1 

fit a particular problem. If 500 E. < £ , set h i+1 « 2h ± . The 

constant 500, located in word 96 can also be changed. 

The auxiliary closed subroutine is entered by J192, with 

x in the floating point AMQ by means of the calling sequence: 

y 020 7 010 P 

yfl Control returns here ln floating point 

At step -Y+l f ( x ) should be located in the AMQ and the floating 
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polnt system should be in control, i.e. the exit from the auxiliary 
subroutine must not be made with an 010 (EXL) order. 

The final exit from JI92 to step a+5 is made with the 
floating point system in control. 

If cell A0 is positive, after the computation on the M fch 
interval is completed, the following 2 lines of information will 
be printed in the Floating Point print format: 
A B * c 



M 



;j f(5) 
A5) 



V A M 



a M A M 



where a M and a M +A M are the first and last points of the M th sub- 
interval. Hence a^a and SLA-k^b. 

If cell A0 is negative after the computation on the M th 
interval is completed, there will be no printing. On exit 
from J192 J" j£(5) wlll be ±n cell B0> 
.1=1 

Symbolic code: 97 words 

Region A (erasable): 8 words, A0 to A7 

Region B (semi-erasable): 19 words, BO to Bl8. 

Region B is erasable except for the f (x) routine. 

Region F: f(x) routine 
Highest Symbol Used: * 30 
Program available as J192E. 



Marvin Shapiro 
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J193E FLOATING POINT DATA DUMP 

The contents of the memory between specified locations, 
a and b, are printed dn the floating point data format. Each 
line consists of two words and the location of the first word. 
The location is in octal or decimal and is preceded by 7 extra 
zeros. If both the exponent and the mantissa of both of the 
data words on a line are zero (i.e., if both of the words are 
machine zeros), that line is not printed. 

J193 uses the JOHNNIAC floating point interpreter and the 
right address of the 20th word of J193 must be the entry loca- 
tion of the interpreter. It is input as 5620g, the appropriate 
location for use in connection with the current version of the 
Floating Point System. 

Calling Sequence : 

a 020 a 010 XXXX (Link to J193) 

a+1 kOO a 000 b 

a+2 Control returns to left of a+2 

k » for octal locations 

k » 1 for decimal locations 
Region A (erasable): AO to A9 
Symbolic Code : 37 words 
Program available as J193E 
Highest Synibol Used: * 12 
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J194E ITERATED SYNTHETIC DIVISION - FLOATING POINT 

N 1 
Given a polynomial f (x) » V~ a ± x , J194 will divide f (x) 

ISO" 

by x-c M times, where 1 < M < N. More precisely, define the 

quotient polynomials q ± (x) by recursion. Set q Q (x) - f(x) and 

let q,(x) be defined by q^OO * (x-c) q^ (x) + qj^fc) for 

j*l, 2, ..., M. Now let 

N-M 
q M (x) » y~ q M x j define f q MJ t ^^ J19 4 com p U tes 

fq^Cc), i»o,i,.. .,m-i 

the set of N numbers (b A , where \>^ » « 

L q i-M ' *-M>M+l,...,N 
All of the numbers (aA , {bj , c, (q 1 (c)ji and 
q i-M\ are ln fche P acked internal form recognized by the current 
version of the floating point system. The ja^l and fa A must 
be arranged in H.S.S. as follows: 

L(a Q ), L(a 1 ) » L(a Q ) +A a , ..., L(a N ) » L(a Q ) + N'A & . 
L(b Q ), L(b 1 ) - L(b Q ) +A b , ..., L (b N ) - L(b ) + N-A b . 
Here, a q and A. are integers whose absolute values are bounded 



below (400)3'- 


(256) 10 . 


ni«vu< 




Calling Sequence : 






a 


020 a 


010 


P 


a+1 


aOO N 


IaJ 


L(a ) 


a+2 


bOO M 


Ki 


L(b ) 


a+3 


L(c) 







(Link to J194) 



a+4 Control returns here 
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/ A_ if a m MA J if b 

*a- i L „ , andA b J ! 



serve to define a and. b . 



b 



if b - 1 



Notes 



(i) Making use of the general relationship f^ k ^(c) - kt*q^(c) 
for < k < N, one can use J194 to compute the values 
of the derivatives of a polynomial f (x) evaluated at 
x m c. In particular, for k-l J194 duplicates the 
function of J191. 

(il) If H - N, then the foA computed by J194 also satisfy 
the equation 

f (x) ^ f" a^x 1 - f" b^x+c) 1 i§£ g (x+c) . 
l»0" i«0" 

(iii) The (&A are not destroyed by J194 if {L(a ± )) are 

disjoint from lL(b-)>. However, setting a « A, and 
L(a Q ) « L ( b (0 ls P erm i 8Sll) l e if the fa.lare expendable. 

Timing 

Ml 

(N-M) 1 P alrs of floating-point add and multiply orders 
are performed for each entry. 

Region A (erasable): 7 words AO - A6 
Symbolic Code: 46 words 
Highest Symbol Used: * 10 
Program available as: J194E 
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1 

V 

J195E MAXIMU M ELEMENT OP A VECTOR — FLOATING POINT 

J195 is a floating-point version of JljkE. Let x "■> (x.m.'.jX ) 
be an n-tuple with real components. J195 will find the element 

x k £ { x ll such thafc ' x k' ^ ' x i' for 1 " 1 ' ••" n and if for some 
J ^ k, \xj I > |x J for i=l, ..., n, then k < ,/. The element 

x, will be in A4 upon, exit from Jlf4 . In addition, L(x, ) -2" 39 

will be in the A^upon exit from JI95. 

The elements jxJ of the vector x must be in the packed 

internal form recognized by the Floating Point system and must 

be placed in H.S.S. as follows: 

L(x 1 ), L(x 2 ) = L(x ± ) + a, ..., L(x n ) « L^) + (n-l)A, where 

A is an integer and |a| < 377q - 2 55 10 - 

Calling Sequence: 

a 020 a 010 £ (Link to J195) 

a+1 - n |a| < • L(x 1 ) 

a+2 Control returns here 
Here the - in step a+1 corresponds only to A . The usage is 
non-standard in the sense that the word in a+1 mu3t not be com- 
plemented in the case of a negative sign. More precisely, for 
step a+1 take 

r , ,-, ( Ia| if the sign position of the word in a+1 is 0. 
a[l( Xi )] - 

r-|A| if the sign position of the word in a+1 is 1. 
Region A (erasable): 5 words (AO -- A 2 f) 
Symbolic Code: 25 words 
Highest symbol used: * 8 
Program available as J195E 



John Derr 
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J196E SOLUTION OP A MATRIX EQUATION AX « B WHERE A IS n x n 
AND NON-SINGULAR — FLOATING POINT 

A link to JI96 will result in the solution of the k 
systems of n simultaneous linear equations 

V" a ±J xW - b^K 1 = 1, 2, ..., n, 

in n unknowns for JL * 1, . .., k. If we define the matrices 
A, X, B by 



, a ll a 12 *•* a ln\ 



f^M ^ ... x^ faM*™...^** 




a > (X (D / b (1) 

a», ; a 2i ; J , x- 1 x 2 • Kb- I d 2 

' a 1 a / \i ^ 

a nl ••* a nn/ ^n 



then the two statements concerning the function of JI96 are 

equivalent. JI96 also computes the determinant of A which we 

denote as det A. 

Calling Sequence ': 

a 020 a 010 0. (Link to JI96) 

a+1 k n A L ( a ii) 

ct+2 Control returns here if det A = 

a+3 Control returns here if det A ^ 

Before linking into JI96 the user must place the elements 

(I) 
a. ± . of A and b^ ' of B into H.S.S. locations as follows: 

a a a b ^ b < 2 > b ( k ) 

a ll a 12 * ' * a ln D l b l * * ' to l 

a 21 a 22 




-2- 



Basically, these locations differ by A. More precisely, 

loc (a i,j+l) " loc ( a ij) + A * J* 1 ' 2 > •••> n-1, 
lbc (a ia ) » loc (b i _ 1 (k ))+2A, i ^ l, 

loc (b^ 1 ') - loc (a i;n ) + A, and 

loc (b^ 1 )) - loc (b^)) +a, i-1, 2, ..., k-1. 

Upon exit from JI96 these same H.S.S. locations will 
contain 

a ll a 12 ••• a m x l (l) x i (2) ••• H^ c l 
a 21 a 22 

°L%2-° m \ M * n (2) ..." n (k) % 

In addition, det A will be In A 19 . All of the numbers re- 
ferred to are in the packed internal form recognized by the 
Floating-Point Interpretive System. The quantities k, n, and A, 
in the Calling Sequence are positive Integers with the obvious 
upper bounds (77)q, (7777 )q, and ' (377) 8 , respectively. Clearly, 
these are not least upper bounds. 

The matrix a - (a^) is the n x n matrix obtained from A 
by the forward solution part of the elimination process. The 
n x 1 matrices faM , ^W) , ..., ^W) are obtalned ln the 
back solution part of the method. The n x 1 matrix (c , c 2 , 
c n ) should be ignored by the user. It functions only as a 
check on the computational accuracy of the forward and back- 
ward solutions. 
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Descrlption of the Method 

The basic method used is the Gauss elimination method. In 
the forward solution the matrix A is reduced to a triangular 
matrix T. The solution of Tx . Eb is equivalent to the solution 
of the original equation Ax « b, where E » TTe. and the E. are 
elementary matrices, i.e. E ± M results in performing elementary 
row operations on M. The back solution can be performed by a 
simple substitution using the equation Tx = Eb. 

The rule of formation of the sequence (E^ E 2 , ...) is 
known as Crout's Method*. However, here the method is modified 
so as to permute the rows of the resulting matrix, if necessary, 
to use the element a k± - Max (|a J1 h as the a±± pivot element 
for i = 1, 2, . . ., n. 

The computation of the. i row of T is checked versus 

2 -6 
(i+1) -10 according to the Crout criteria for checking. 

Similarly, the calculation of the 1 th row of X is checked 
versus (n+l) -10" . This method of checking will probably suf- 
fice in most cases w. r. t. testing for machine malfunctions. 
Note that this check does not guarantee that the solution com- 
puted is "correct" in any normal sense, since the ultimate 
accuracy of the computed solution is limited by the inherent 
error of the original system of equations. An exact specifi- 
cation of bounds for inherent error is beyond the scope of 
J196. However, loss of significant digits due to ill- 
conditioning of the original matrix A can cause the checking 
criteria not to be satisfied. 



♦See Numerical Calculus , pp. 17-29, by W. E. Milne 
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NOTES 



(i) J172, 3, 5 and J195 (or J174 in place of J195 if all 
calculations are performed in the N mode) are slave 
routines w.r.t. JI96 and therefore must be used along 
with the Floating-Point System in conjunction with JI96. 
Further, JI72, 3, 5 and J195 (or J174) have the origins 
WO, XO, ZO, and YO, respectively, w.r.t. JI96. Hence, 
these regions must be assigned locations before JI96 is 
loaded. 
(ii) A 13X halt will occur in the 120th word of JI96 if the 
computational checking criteria is not met in any row 
during the forward solution. The calculation will con- 
tinue if the GO button is pressed, 
(ill) A 13X halt will occur in the l83rd word of JI96 if the 
computational checking criteria is not met in any row 
during the back solution. The calculation will continue 
if the GO button is pressed, 
(iv) A 13X halt will occur in the 75th word of JI96 if det A-0. 
Control will link back to the main program if the GO 
button is pressed. 

(v) Clearly, the original matrices A and B are destroyed 
by JI96. 
(vi) The relation 

n(n+k+l) < (4096-F) - 292 - 26 -M 

must always be satisfied when using JI96, where F ■> the 
number of words used by the Floating-Point Interpretive 
System and M « the number of words in H.S.S. occupied by 
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programs other than JI72, 3, 5 and J195 and the Floating-Point 
System. 

In order to get some real-live numbers, suppose 
(4096 - F) = 2960, A - i, and M » 115. Then n(n+k+l) < 2527 
must hold. If k»l, n < 49. If k=n, k=n<35. 
Timing 

Since at the time of this writing no explicit times were 
known for the floating-point operations, it follows that no 
explicit timing estimates could he made for the general case. 
However, the following floating-point operation counts should 
yield a reasonable measure of how the time will vary as a func- 
tion of n and k. 

Operation Counts for the Forward Solution 
(*) n ( n +2k+D 

3 2 
(+) and (x) *- + ^L. for each 

(approximate for large n or k) 
Operation Counts for the Backward Solution 

(+) and (x) n(n-lj(fcfl) for each 

While operating in the SD Mode five seconds were required 
for a solution with n=* 7 and le-l . This example can be used as a 
reference point in the (n,k) plane to compute approximate absolute 
times using the above formulae. 

J196" Storage (without slaves) 

Reg. A (erasable) 20 words (A 6 - A 25) 
Symbolic Code: 192 words 
Highest Symbol Used: * 4l. 
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Storage Used by Slave Routines (J172,3>5 and J195 [or J174] ) 

Region A 6 words (A - A 5) (Note that the erasable 

storage used by J172,3*5 and J195 (or J17 2 *) does 

not overlap that used by JI96.) 

Symbolic Code: 100 words (or 98 words If J174 used In 

place of J195) 

Highest Symbol Used: * 8 

Combined Storage Used by J172,3,5 and J195 (or J174) 

Reg. A 26 words (A - A 25) 

Symbolic Code: 292 words (or 290 words if J174 is used 

in place of J195) 

Highest Symbol Used: * 41 
Lattice Diagram Describing Master-Slave Relations 



J195 (J17^) J175 
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J197A AUTOMATIC SOLUTION OP A MATRIX EQUATION AX«B WHERE 
A IS n x n AND NON -SINGULAR -- FLOATING POINT 



J197 is an automatic version of JI96. The user needs only 
to record the necessary input data in punched cards , place 
these cards Immediately behind J197* and press the LOAD button. 
The solution matrix, X*, which approximates X in the equation 
AX=B will be computed and printed for each equation. 



Input Form 

Information should be punched in the Floating point Data 
Form as follows: 



1st card for a problem 

(1) 
+ EXP MANTISSA 



n 



ID 

L 



Any decimal 
information 
for problem ID 



L- order of matrix A 



+ if A is not to be printed 
— if A is to be printed 



(2) 

EXP MANTISSA 



number of columns 
in the matrices 
X and B 



+ if (c^,) is not to be printed 
— if (a. ,) is to be printed 



The elements of A must be punched by rows into consecu- 
tive positions of the cards beginning with the second card. 
Each row must begin with position (l) of a card and if an EF 
mark (12 punch (+) in column 80) is encountered prior to the 
reading of the n element of a given row, then J197 will assume 
that the remaining elements of the row are 0. (This does not, 
of course, affect the six elements of A which were punched 
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into the card with the EP mark.) 

The elements of B must be punched by columns Into con- 
secutive positions of the cards beginning with the first card 
following the cards for A. Each column must begin with 
position (l) of a card. 

The solutions for a sequence of equations AX=B can be 
evaluated by placing the input cards for the equations in 
sequential order behind J197- If the input cards are followed 
by two blank cards, the collator will be on Select following 
the completion of the last problem. 

Output Form 

The page will be ejected prior to the beginning of each 
problem. The numbers printed will be in the external floating 
point form. The print format is that described for the 013 
(PNT) order in the Floating-Point writeup. The printing for 
one problem takes place as follows: 

ABC 

Information in + n ID + k 

positions (1) and ~" * ~ 

(2) of 1st Input 

Card 

Space 



If A is printed, then the printing for the i th row is 
as follows: 
Row number 1 



< 



Elements of the row 

begin here &n a ±2 a i3 



If A is printed, the page is ejected following the 
printing of the last row. 
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a b c 

Determinant det A 

Space - — 

If (a,,) is printed, the same procedure is followed as 
for A. 

X is printed by columns The printing for the/ column 

is as follows: 

Column number t — — 

Elements of the column / «\ { p\ ( t\ 

begin here x i x 2 ' x 3 

• • • 

• • * 

• • • 

Notes : 

(1) The inequality n(n+k+l) < 2526 must be satisfied by n and 
k. In particular, if k=»l, then n must not exceed ^9 and 
if k=n, then n must not exceed 35. If n(n+k+l) > 2526, 
the program will halt atSWo with a 130 5W order. 

(2) A 13X halt will occur at 533^o if the computational check- 
ing criteria is not met in any row during the forward 
solution. The calculation will continue if the GO button 
is pressed. 

(3) A 13X halt will occur at 5^33o if the computational check- 
ing criteria is not met in any row during the back solu- 
tion. The calculation will continue if the GO button is 
pressed. 

(4) A 13X halt will occur at 5257 g if det A-0. If the GO 
button is pressed, then det A and the current state of 
the (a. /) and X (or B) matrices will be printed. The next 
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problem In sequence will then be started if it exists. 

(5) A check sum BX halt at 001 4g indicates that J197" has 
probably been loaded incorrectly under the control of 
J180A. The entire loading process should be restarted. 

(6) The user is referred to the JI96 write-up for a descrip- 
tion of the method. 

Program available as J197A. 



John Derr 



J198E SERIAL DRUM SIMULATOR 

J198 transfers any block of Information from 1 to 9216 
words in length to or from HSS from or to the drum. "Stepping 
over" bands and positions is done automatically. 



P 



Calling sequence: 




a 


020 


a 010 


a+1 




a.2-39 


a+2 




b-2" 39 


a+3 




00c 


a+4 


Control returns here 


where a « first drum 


address 


b = last 


drum 


address 



n 



JO if transferring from drum to HSS 
" \1_ if transferring from HSS to drum 

n « first memory address 

Words are transferred to or from HSS modulo the address 4096. 

Starting at 0000 and going to 9215 inclusive, the order 
of the drum positions and bands used is as follows: 

Drum Addresses Position Band 

0000-1023 

1024-2047 2 

2048-3071 2 1 

3072-4095 1 

4096-5119 2 

5120-6143 1 2 

6144-7167 1 

7168-8191 2 2 

8192-9215 1 1 

The fact that consecutively numbered blocks of words are not 
stored on consecutively numbered positions or bands need not 
concern the programmer as long as he uses JI98 for both reading 



J199E SERIAL DRUM SIMULATOR WITH CHECK SUM 

J199 transfers any block of information from 1 to 9216 
words In length to or from HSS from or to the drum. "Stepping 
over" bands and positions is done automatically. On exiting 
from J199 the sum, modulo 2 , of the block of words trans- 
ferred to or from the drum is left in the accumulator. 

Calling sequence : 

a 020 a 010 p 

a+1 a«2~ 39 

a+2 b«2' 39 

a+3 00c n 

a+4 Control returns here 
where a = first drum address 

b » last drum address 

if transferring from drum to HSS 

1 if transferring from HSS to drum 

n o first memory address 
Words are transferred to or from HSS modulo the address 4096. 

Starting at 0000 and going to 9215 inclusive, the order 
of the drum positions and bands used is as follows: 

Drum Addresses Position Band 

0000-1023 

1024-2047 2 

2048-3071 2 1 

3072-4095 1 

4096-5119 2 

5120-6143 1 2 

6144-7167 1 

7168-8191 2 2 

8192-9215 1 1 

The fact that consecutively numbered blocks of words are not 
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stored on consecutively numbered positions or bands need not 
concern the programmer as long as he uses J199 for both read- 
ing and writing. This ordering must, of course, be taken into 
account if the contents of the drum are dumped in the normal 
position and band order, i.e. (0,0), (0,1), (0,2), (1,0), ..., 
(2,2). 

Region A (erasable) - 7 words, AO to A6 
Symbolic Code: 44 words 
Highest Symbol Used; * 19 
Program Stops : None 
Program available as J199E. 



Marvin B. Shapiro 
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J200F JOHNNIAC FLOATING-POINT INTERPRETIVE SYSTEM 

Program Storage ! 296o 10 - 4095 10 (562O3 - 7777 3). 
All of the Floating Point Operations are recognized in 
their mnemonic forms by JlOO, Jll8. . 

LIST OP FREQUENTLY USED LOCATIONS 

Dec. Octal - Contents 

2960 5620 First Location of Interpreter 

2963 5623 020 [I CTR. J 05015644' 

2980 5644 I Register '":" 

4o4l 7711 Error Halt Location 

3040 5740 Trap Register - BRKPT 

3041 5741 " " - All Orders 

3042 5742 " " - Transfer 
3656 7110 AMQ Exponent 

3658 7112 AMQ Mantissa _ _.. 

3708 7174 072 [ q x ] 025 ;70l6 ; - Square Root Shift* 

3733 7225 022 7122 076 [ q 2 ] - Series Shift* 

3990 7637 Series Test Number* 

3064 5770 Index Register A 

3056 5760 ■ " " B 

3052 5754 " " ■ C 

3050 5752 " " D 

3049 5751 " " E 

3048 5750 " . ■ " F 

3597 7015 Integer - Zero 

3598 7016 " - One 

• • • — • 

• • • ••■ • 
. 1 • — • 

3606 7026 Integer - Nine 

3615 7037 " - Fifty 

3634 7062 " - Ten exp zero 

3635 7063 " - " " One 

• » • • ••■«■•• . 

• » '..-".■• • • . • 

3643 7073 Integer - Ten exp. Nine 



th 



* Let A n « f ( n+ i) " *v where f n is the n™ approximation 

to the function f. The test for convergence of f , to f 

n+l 
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2' q - Z. Z is 



is then made to depend upon the sign of A 
always 2 J:? for the SQR operation. For the ART, EXP, and LOG 
operations Z is the series test number . The series test 
number is ordinarily equal to 2~ 3 ^ for these three operations, 
but it can be modified by the user. Hcwever, the series test 
number is usually reset to 2 J;7 upon execution of a SIN or COS 
operation. For the SQR operation q_„ Is q., and q, is 
ordinarily set to 5* However, q 1 can be modified by the user. 
The same situation holds for the SIN, COS, ART, LOO, and EXP 
operations with q equal to q 2 - 



Coding Aids Using J200F 

1. To normalize the number in the AMQ, execute the following 
instructions outside interpreter control: 

a _l -__ _._ Q04 7112 

a 020 ^ a 010 7575 (Link to count number of SD. 

Leaves number of SD in MQ.) 
a+1 020 a+1 010 7^24 (Link to normalize mantissa) 

a+2 Control returns here 

2. To suppress Error Halt: 

Replace the left operation of 7711 by 010. 

3. To suppress Error Halt and the subsequent trace printing, 
replace the left operation and left address of 7711 by 010 
5667. 



Program available as J200B 

J200F 



John Derr 



9-12-56 

J201E PUNCH DECIMAL CARDS 

J201, punches one decimal card containing 6 twelve-place 
fielda and a three-digit sequence number. 
Calling sequence: 

a 020 a 010 XXX 

a+ l SEQ 

1-6 7-19 20-27 28-39 

a+2 k lPl q x L x 

a+3 k 2 p 2 qg L 2 

j 

crt4 k 3 P 3 q 3 I3 

a+5 fyp^ q 4 — % 

a+6 k 5 P 5 q 5 — L 5 

^7 k 6 p 6 qg L 6 

a+8 Control returns here 



where : 
k 



i 



'0 (in sign position) if p and q positive 

1 (if the negative values of p ± and q ± are to be used) 

/ positive » number of decimal digits to the left of 
J the decimal point. 

p i I negative - number of lead zeros desired to be between 
^ the decimal point and the first digit of 

the word in memory. 

f positive » number of positions right from 2 (ex- 
{ eluding 20) to binary point, 

^i j negative « number of positions left from 2° (ex- 
cluding 20 ) where binary point is assumed 
to be. 






L. ■ location of the i th number. 



continued 
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The punched card form is: 

Column 

1 blank 

2-4 sequence number 

5-16 1st number 

17-28 2nd number 

29-40 3rd number 

41-44 blank ' 
45-56 . 4th number 

57-68 5th number 

69-80 6th number 

If p. and q. are positive field, i contains 11 digits 
and a decimal point after the integer part of the number. 

If p. and q ± are negative, the absolute value of p ± is 
punched in the first column of the field followed by 11 digits 

An 11 is overpunched in the 12th column of the field 
for negative numbers. No punch is used to designate positive 
numbers . 

If any cell in a+2 through a+7 is left blank (zero), the 
corresponding field on the card will be blank. 

Program length: Region A (erasable) - 30 words 

Region c - 171 words 

No program stops. 

Timing: Cards will be punched at half-speed with a reason- 
able amount of manipulation between entering of the 
program . 

, Program available as J201B 

J201E 



Marvin Shapiro 
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J202A DUMP MEMORY TO DRUM 



J202A is a one -card self-loading routine which clobbers 
cells 0000-0002, transfers HSS cells (3-1023 10 )* to (3-1023 1Q )* 
of the drum (position 0, band 0)* and then effectively hits 
the load button. (The MQ is not cleared.) 



* Note ; The action of J202A can be changed in several ways. 
(For example, any band position combination may be used.) In 
particular, the right half of the 8's row and the left address 
of the right half of the 6's row are flexible. 
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J203E INPUT ADDRESSABLE FLOATING -POINT DATA 

J203E will read cards containing addressable floating point 
data punched in the external floating-point form as described 
in JOHNNIAC Note #66. 
Calling Sequence : 

a 020 a 010 P Link to J203E 

a+1 kOO a 

a+2 Control returns to left of a+2 

Cards' will be read from the primary if k=0 and from the 
secondary if k«l. Locations will be relative to a . 

J203 does not require the presence of a floating-point 
interpreter. 

Note ; J203E will destroy the origins of regions B, C, D 
while loading, and must be loaded by J136A. J203 is available 
only in style E. The J203E deck consists of 1^6 cards. 

Timing: Cards are read at full speed. Each reference to J203 

will lose one card cycl^. 
Region A (Erasable): AO - A^O 
Program: 132 words 
Highest Symbol Used: *99 
Program available as J203E 
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J204A AUTOMATIC FLOATING POINT DATA DUMP 

J20^A is a self-loading program which effectively uses 
only the first three cells of HSS (0000-0002). The contents of 
band 0, position of the drum are clobbered. 

J204A req uires the presence of the current version of the 
floating point system in H.S.S. If this condition is not already 
met, it can be attained by placing a style P version of the 
system between J204A002 and J204A003. The floating-point 
system will then be loaded into memory and the information pre- 
viously present in the cells used by the system will be destroyed. 

Any number of specified sections of memory may be printed. 
Each line printed consists of two words in the floating-point 
data format and the location of the first word. The locations 
may be in octal or in decimal and are preceded by 7 extra zeros. 
If both of the data words on a line are machine zeros, that line 
is not printed. 

The sections to be printed are determined by one or more 
control cards, having the first and last addresses in the address 
positions of the right half of the 9's row. A 9 punch in col. 
41 causes decimal locations to be printed. The absence of a 
9 punch in col. 41 causes octal locations to be printed. 

Printing is terminated by a blank card. After reading the 
blank card, J204A effectively hits the load button. 
Preparation of Deck ; 

J204A 

Control cards 
Blank card. 
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HALT NIA - 0015 8 . Check sum stop. J204A has not read In 
correctly and portions of the memory may have been clobbered 
Drum Used ; Position 0, band 

Available as J204A. 
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J205P JOHNNIAC FLOATING-POINT INTERPRETIVE SYSTEM 

Program Storage: 296o 10 - ' 4095 10 (5620 Q - 7777q) • 
All of the Floating Point Operations are recognized in 
their mnemonic forma by J100, J118. 

LIST OF FREQUENTLY USED LOCATIONS 

Dec. Octal Contenta 

2960 5620 First Location of Interpreter 

2963 5623 020 [I CTR.j 050 5644 

2980 5644 I Register 

4041 7711 Error Halt Location 

3040 5740 Trap Register - BRKPT 

3041 5741 " " - All Orders 

3042 5742 " " - Transfer 
3656 7110 AMQ Exponent 

3658 7112 AtyQ Mantissa 

3708 7174 072 [ q x J 025 ,7016 - Square Root Shift* 

3733 7225 022 7122 076 [ q 2 ] - Series Shift* 
3999 7637 Series Test Number* 



3064 5770 Index Register A 

B 
C 



3056 5760 

3052 5754 

3050 5752 

3049 5751 



11 



D 
E 
F 



3048 5750 

3597 7015 Integer - Zero 

3598 7016 " - One 

• • • ■* • 
. . • - • 

. . . - • • 

3606 7026 Integer - Nine 

3615 7037 " - Fifty 

3634 7062 " - Ten exp zero 

3635 7063 " - " " One 

• • . « • • 
. • « ~ • • • 

• • * • . • • 

3643 7073 Integer - Ten exp. Nine 



th 



* Let A n « f ( n +l) " f n' where f n ls the n approximation 
to the function f . The test for convergence of f , to f 
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is then made to depend upon the sign of |A n | • 2 - Z. Z is 
always 2" 39 for the SQfl operation. For the ART, EXP, and LOG 
operations Z is the aeries test number . The series test 
number is ordinarily equal to 2~ 39 for these three operations, 
but it can be modified by the user. However, the series test 
number is usually reset to 2~ 39 upon execution of a SIN. or COS 
operation. For the SQR operation q is q x and q x is 
ordinarily set to 5- However, q x can be modified by the user. 
The same situation holds for the SIN, COS, ART, LOO, and EXP 
operations with q equal to q 2 « 

Coding Aids Using J205F 

1. To normalize the number in the AMft, execute the following 
instructions outside interpreter control: 

a „l — — 004 7112 

n. 020 a 010 7575 (Link to count number of SD. 

Leaves number of SD in MQ.) 
a+1 020 a+1 010 7624 (Link to normalize mantissa) 

a+2 Control returns here 

2. To suppress Error Halt: 

Replace the left operation of 7711 by 010. 

3. To suppress Error Halt and the subsequent trace printing, 
replace the left operation and left address of 7711 by 010 
5667. 



Program available as J205B 

J205F 



John Derr 



J206F J011NNIAC FLOATING-POINT INTERPRETIVE SYSTEM #2 

program Storage: 2960 1Q - *095 10 (5620g - TU1%)- 
All of the Floating Point Operations are recognized in 
their mnemonic forma by J100, Jll8. 

LIST OF FREQUENTLY USED LOCATIO NS 
Dec. Octal Contents 

2900 5620 First Location of Interpreter 
2963 5023 020 [I CTR.J Ot>0 5^ 
5980 5°^ I Register 

4041 . 7711 Error t> Ha } fc i .iS° a umpt 
' 3040 5740 Trap Register - ^fj^^ 

lots 57*2 " "■ " Transfer 
V,5t 7110 AMQ Exponent 

it ?m/ £2 HH ° 25 7016 - Square Hoot -Shlff 

7225 022 7122 07o [ Q 2 1 ~ Series Shift* 
7037 Series Test Number* 



3733 



•3QQQ 1 -j 1 

3064 5770 Index. Register A 

3056 5760 m „ I 

3052 . 575* „ „ • s £ 

3050 .' 5752 ,. „ ' h 

3049 ' 5751 ,; 

3048 5750 . 

150,7 7015 Integer - Zero 

3II6 7016 '; : One 



E 
F 



Ifs "rot In " e8er "- 81%' 

3o3t> 70u3 . " . . u ? e 

• • . - • • • 

3643 7073 Integer - Ten exp. Nine 



* Let A - f/ +1 \ - f , where f n is the n th approximation 
to the function f. The test for convergence of f n+1 to .f 
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Is then made to depend upon the sign of |a I • 2 -cl - z. Z is 

-39 
always 2 -^ for the SQR operation. For the ART, EXP, and LOG 

operations Z is the series test number . The series test 

number is ordinarily equal to 2~ 39 for these three operations, 

but it can be modified by the user. ' However, the series test 

number is usually reset to 2~ 39 upon execution of a SIN or COS 

operation. For the SQR operation q Is q and q is 

ordinarily set to 5- However, q ± can be modified by the user. 

The same situation holds for the SIN, COS, ART, LOO, and EXP 

operations with q equal to q 2 . 

Coding Aids Using J206 

1. To normalize the number In the AMQ, execute the following 
instructions outside interpreter control: 

a-1 --- --- 004 7112 

a 020 ' a 010 7575 (Link to count numb.er of SD. 

Leaves number of SD In MQ.) 
a+1 020 a+1 010 7624 (Link to "normalize mantissa) 

a+2 Control returns here 

2. To suppress Error Halt: 

Replace the left operation of 7711 by 010. 
3- To suppress Error Halt and the subsequent trace printing, 
replace the left operation and left address of 7711 by 010 
5667. 

Program available as J206P 
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J207A AUTOMATIC POLYNOMIAL FUNCTION EVALUATION - FLOATING 
POINT 

J207 is an automatic version of J191- The user needs only 

to insert the current version of the JOHNNIAC Floating-Point 

*> 

System between the second and third cards of J207, to record 
the necessary input data in punched cards, place these cards 
immediately behind J207, and press the LOAD button. The quan- 



tities p(x), where 

N 
p(x) = 



a.x 1 , N > 1, will be computed and printed 



for each header card. 

Input Form 

Information should be punched in the Floating Point Data 

Form as follows: 

Header card for a problem 

(1) (2) (3) 



- EXP 
+ 00 



MANTISSA 

N 



"< if the (a.lare 
to be printed. 
> if the fa A are 
not to be printed 

Positions (4), (5), and (6) of the header card are not inter- 
preted by J207. 
Coefficients faA 

If new coefficients fa A are to be used for this problem, 
then they must be punched 6/card into consecutive positions of 



the cards beginning with the second card. Each row must begin 
with position (1) of a card. 
End-of-file card for a problem 

The cards for one problem begin with a header card and. end 
with a card containing an end-of-file mark (12 punch, +) in 
col. 80 (called an end-of-file card). The end-of-file card 
usually coincides with the last coefficient card, but if the 
coefficients from a previous problem are being used again (for 
example, if x is a parameter), the end-of-file card can coin- 
cide with the header card.* In any event, though, there must 
be an end-of-file card for each problem. 
Sequence of problems 

A sequence of polynomial function evaluations can be per- 
formed by placing the input cards for the individual problems 
In sequential order behind J207. If the input cards are fol- 
lowed by two blank cards, the console will show "READER" follow- 
ing the completion of the last problem. 

Output Form 

The page will be ejected prior to the beginning of the 
first problem. The numbers printed will be in the external 
floating-point form. The print format is that described for 
the 017 (PNT) order in the Floating-Point write-up. The print- 
ing for one problem takes place as follows : 

ABC 
p(x) x N 



* The storage reserved for the {a^lis cleared to zero prior to 

beginning the first problem and that storage is altered only by 
reading in la . 1 . 



If the [a. | are to be printed (d < 0) , they are printed 
3/line in the natural order: 

Space A B C 

Coefficients a Q a x a g 

• • • 

. . • 

• • ■ 

One space is skipped at the end of each problem. 
Program available as J207A. 
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J208A automatic solution op a matrix equation ax*b where 

A IS n x n AND NON-SINGULAR -- FLOATING POINT 

J208 is an automatic version of J196. The user needs only 
to insert the current version of the Floating-Point System pre- 
ceding the last card of J208, to record the necessary input data 
in punched cards, place these cards Immediately behind J208, 
and press the LOAD button. The solution matrix, X*, which 
approximates X in the equation AX»B will be computed and printed 
for each equation. 
Input Form 

Information should be punched in the Floating-Point Data 
Form as follows: 



Header card for a problem 

(1) 

+ EXP MANTISSA 



n 



ID 

L 



Any decimal 
information 
for problem ID 



L- order of matrix A 



+ if A 1b not to be printed 
- if A is to be printed 



(2) 

EXP MANTISSA 

k 



L 



! number of columns 
In the matrices 
X and B 



+ if ( a j_j) ls not to be printed 
~ if ( a ij) is to be printed 



Data cards for a problem 

The elements of A must be punched by rows into consecu- 
tive positions of the cards beginning' with the second card. 
Each row must begin with position (1) of a card and if an EF 
mark (12 punch (+) in column 80) is encountered prior to the 
reading of the n element of a given row, then J208 will assume 
that the remaining elements of the row are 0. (This does not, 
of course, affect the six elements of A which were punched 
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into the card with the EP mark.) 

The elements of B must be punched by columns into con- 
secutive positions of the cards beginning with the first card 
following the cards for A. Each column must begin with 
position (1) of a card. 
Card3 for a Sequence of Problems 

The solutions for a sequence of equations AX=B can be 
evaluated by placing the input cards for the equations in 
sequential order behind J208. If the input cards are followed 
by two blank cards, the collator will be on Select following 
the completion of the last problem. 
Output Form 

The page will be ejected prior to the beginning of each 
problem." The numbers printed will be in the external floating 
point form. The print format 1b that described for the 017 
(PNT) order in the Floating-Point writeup. 
printing for a problem 

,A B C 

Information in + n ID + k 

positions (1) and 
(2) of header 
Card 



Space 



th 



< 



^~ If A is printed, then the printing for the i row is 

as follows: 

Row number • * 

Elements of the row 

begin here a 1]L a i2 a^ 



If A is printed, the page is ejected following the 
printing of the last row. 
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A B C 

Determinant det A 

Space 

If ( a ij) is P rinted > the same procedure is followed as 
for A. 

X; Is printed by columns The printing for the^ th column 

is as follows: 

Column number £, 

Elements of the column , (i x . nX 

begin here x {-*) x U) v U) 

1 A 2 x 3 

• i '. 

Notes : 

(1) The inequality n(n+k+l) < 2526 must be satisfied by n and 
k. In particular, if k»l, then n must not exceed 49 and 
if k=n, then n must not exceed 35. If n(n+k+l) > 2526, 
the program will halt at!5Wg with a 130 -5W order. 

(2) A 13X halt will occur at 533^ Q if the computational check- 
ing criteria is not met in any row during the forward 
solution. The calculation will continue if the G-0 button 
is pressed. 

(3) A 13X halt will occur at, ! 5^33 Q if the computational check- 
ing criteria is not met in any row during the back solu- 
tion. The calculation will continue if the GO button is 
pressed. 

(4) A 13X halt will occur at 5257 Q if det A-0. If the GO 
button is pressed, then det A and the current state of 
the (a ±J ) and X (or B) matrices will be printed. The next 
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problem in sequence will then be started if it exists. 

(5) A check sum 13X halt at 00l4g Indicates that J208 has 
probably been loaded incorrectly under the control of 
J180A. The entire loading process should be restarted. 

(6) The user is referred to the JI96 write-up for a descrip- 
tion of the method. 



Program available as J208A. 
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J209E PUNCH STYLE E 

J209 will punch the block of words from a to b into 
style E cards, in octal, one word per card. The location 
fields of the cards will be left blank. Since the information 
will be punched in octal, commas will be punched into columns 
22 and 31. 

Calling sequence: 

a 020 a 010 p Link to J209 
a+1 a b 
a+2 Control returns here 

Program length: 52 words 

Erasable: AO - A12 

Highest symbol used: *13 

Timing: Cards are punched at full speed, 100 cards per minute. 

Available as: J209E 
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J210E EVALUATION OP A BOOT OP A POLYNOMIAL WITH COMPLEX 
COEFFICIENTS — FLOATING POINT 



J210E Is a more flexible version of J157E. J210 will 

compute, by an iterative process, up to n roots of an n 

degree polynomial equation of the form 

n 

f(z)» y CjZ 1 « 0, where C ± 




is a complex number for i»0, ..., n. Along with each root ft 
computed, the multiplicity k of ft, |g(ft)| and the new reduced 
polynomial g(z) are available to the user. The user may, for 
each root ft, constrain the convergence of the process by specif 
fying an initial guess z Q and by modifying certain sensitive 
quantities. 

J210 must be used in conjunction with the current version 
of the Floating-Point System. J210 is entered in two ways. 
The main entry (polynomial entry) is performed by basic linkage 
and results in normalizing the polynomial f (z) into monic form, 

i-e - » 

g(z) m \ a. ±z ■" , where a Q « 1 - ^- and C N+1 - C N+2 •;..- ... 

JSQ N 

"* c n * °* In a11 3u cceeding re-entries (root entries), an 
attempt is made to compute a new root of the reduced polynomial. 
Calling Sequence : 

a 020 a 010 p (polynomial entry to 1st word of J210) 

a+1 aOO L(C n ) |a| n 

a+2 Error return (Control returns here if N»0 for the 

polynomial entry or if the process • 
does not converge for a root reentry.) 

(Calling Sequence continued) 
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Calllng Sequence (continued) 

a+3 First Root return (Control returns here following 

polynomial entry to J210.) 

a+4 Intermediate root return (Control returns here following 

the evaluation of a root of f(z).) 

Before the polynomial entry to J210 is executed, the coeffi- 
cients {c.} of f(z) must be stored in H.S.S. locations as follows, 

where A -f ' A ' if a * ° (Note that |a| > 2): 

(-|a| if a * 1 

L(C ) — c R « real component of C n in floating point internal form 

L(C )+l — C 1 - imag. component of C n in floating pt. internal form 



L(C )+n«A — C Q R * real component of C in floating pt. internal form 

L(C )+n«A+l — Cq 1 ■ imag. component of C Q in fl. pt. Internal form 

The following locations contain the current values of quan- 
tities which are of Interest to the user and to J210: 
BOO — z. ■ real component of the current approximation to fl . 
B01 - z, «■ imag. component of the current approximation to ft. 
B02 - |g(ft)|, where is the last root evaluated. 
B03 — k » current estimate of multiplicity of z ± . 
B04 — N * current degree of g(z) 
B05 — (n-N) «- number of leading zero coefficients of f (z) . 



BIO +6j (J=0, . . .,N-l) — a,. . r » real comp. of the coefficient of 



: N ' 1 - j in g(z). 
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Bll +6 J (J=»0, ..., N-l) - &i+4 «• imag. comp. of the coefficient 

of z N ~ 1 ~ J m g( z ). 

E28l (*88) - I » maximum number of iterations in the first cycle 

diminished by 1/2N (mod 4) 

(l»17 unless changed by user) 
E282 (*89) — c » maximum number of Iteration cycles 

(C*7 unless changed by user 

E285 (*96) - € (e =10** 7 unless changed by user) 

E286 (*97) — t] (r\ » 10* unless changed by user) 

E289 (*94) - 8 in floating-point (6=10~ 3 unless changed by user) 

E290 (*95) - 8 in fixed point scaled 2° (5»10~ 3 unless changed 

by user) 

All root entries (reentries) to J210 are made by trans- 
ferring to E046. If the root return is made to the right of 
E046, then J210 will use the contents of BO and Bl for the 

initial guess, z Q ,toiJ. Otherwise, J210 will set 
N N 

Z "" V^N + i VtnI ' Prior to an y roofc re-entry to J210, 
the user is free to alter z Q , I, C, £ , tj, and 6 as he sees fit. 
Upon return of control to a+2, a+3, or a+4 the user will prob- 
ably want to utilize some of the quantities z , |g(fl)|, k, N, 
n-N, and the [a. A . If control returns to the Intermediate root 
return, the U3er may assume that ft - z. , k « the multiplicity 
of fl and N is the degree and the fa.l are the coefficients of 
the new reduced polynomial g(z). it is important' to observe 
that the user must program the decision to terminate the compu- 
tation of roots of f(z). This can. usually be done by testing 
N=0 for every intermediate root return if all of the roots of 
f(z) are desired. 
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Description of the Method 

Set q Q (z) «* g(z) and let q,(z) be defined by q, .(z) 
= (z-z jL )q,(z) + q. ^z^ for J-l, 2, . .., N. Let the non- 



negative integer i be defined by i»0 if 
and -- - m ' 



'?!'<* J 



> r\ 



by |g (z ± )| < r\ 1^(0)1 for m-0, 1, ...,4 and |g 



i+1 



q 2 (o) 

(z ± )| 



> t] l^+i (°) I *• Then fcne basic iterative process is defined by 



(k-i)f'(z ) 
(Az) i « jj-y- — -— , where the determination of 



"P^io 



k-i is yet to be explained. If i»0, then k-i=l. Hence, when 
i«0, the basic process reduces to the Newton-Raphson process. 
If i>0, then make use of the fact that 



g i (z 1 ) 



-> 



z 1 - ft 

~k^T 



as z ± -> ft for < i < k, 



provided fl is a root of g(z) of multiplicity k. 

Compute x » — * ■ — jxt jr^ « . Suppose 

x » an integer I > 2. More precisely, if x R > ,2-6, \x Z \ + x R < 5, 
f >!l-B; or f < 6 (where f is the fractional part of x R ), and 
x < N - i+1, then set k-i-x-1 and k=x+i-l. Otherwise, 3et 
k-i«l and k=i+l.*» 

The basic Iterative process is modified***at every fourth 

"* In JlbVK, r^- io" 2 . 

** The 6 used here is 10 in J157. 



*** In J157, this modification does not exist. 
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iteration of a cycle, provided i*0. Compute 

(Ax) i x 
X " IAx) 1 _ 1 -(ax) 1 * 

•Determine as above whether or not x - an integer I such that 
2 <I<N. If so, then set i-l and carry out the basic process for ' 
Z>0. If not, then replace (Ax) ± by (Ax) ± 3 /(Ax) i ^ 1 . 

In the former case (x = I such that 2 < I < n), multiple 
roots can be detected prematurely although sometimes a set of 
distinct roots will look like one big multiple root to the 
process with multiplicity equal to the sum of the respective 
multiplicities. 

In the latter case, the convergence for the pair of steps 
1-1 and l is accelerated. In fact, the convergence becomes 
of the third order. Hence, half of the time (more than half in 
the case of multiple roots) the combined process is a third 
order one. Simultaneous with the jump to third order conver- 
gence, however, the domain of convergence is decreased. 

Convergence and the Choices of z_ 

The criteria for convergence of z ± to fi requires that 
l(Az) ± | < IzJ'C, i.e. that the relative error in fl shall not 
exceed £. |z(fl)| provides an independent check on the computa- 
tion. Note though that J210 does not substitute fi back into 
f(z). 

The system which J210 uses for starting the iterative proc- 
ess breaks down into C iteration cycles. The first iteration """ 
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cycle allows a maximum of I+N/2 (mod 4) iterations and this 
maximum is increased by 4 for each succeeding Iteration cycle. 
On the first cycle z Q is chosen as described above. On suc- 
cessive cycles z n is set equal to a complex number with modulus 

N ° 

a v/aJ7 according to a fixed pattern, where a N is the constant 

coefficient of g(z). The set of values of z Q Includes points 

in all four quadrants and contains at most seven distinct points, 

Any cycle can be interrupted by convergence. If all C 
cycles are executed in their entirety, then the process has not 
converged and control will return to the Error return. 

NOTES 

(1) If f(z) has real coefficients, and if fi is a proper 
complex root, then set z Q =fl* (the conjugate offl), provided 
A* has not already been evaluated. 

(2) In general, do not set z Q *> a real number unless only 

real roots are desired. 

-8 

(3) In general, € should not be less than 10" , since 

9 digit arithmetic is used. 

(4) In general, as r\ is increased, the process will tend 
to produce more multiple roots. For example, as t| is increased,, 
distinct roots (as well as true multiple roots) are more likely 
to be identified as multiple roots. Conversely, as rj is de- 
creased, multiple roots (as well as distinct roots) will tend 
more to be identified as sets of distinct roots. 

(5) Essentially, the statement of (4) for r\ holds for 6 
as well, although not for the same reason. 
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(6) The values of the roots, as well a3 their multipli- 
cities, can vary significantly with the order in which they 
are determined. 

(7) The nature of an error return can be determined by an 
examination of N. 

(8) J169 and J170 are slave routines w.r.t. J210. and 
therefore must be used along with the current version of the 
Floating-Point System in conjunction with J210. Further, JI69 
and J170 have the origins YO and ZO respectively, w.r.t. J210. 
Hence, these regions must be assigned locations before J210 is 
loaded . 

(9) If the process does not converge, BO and Bl contain 
the last approximation to a root ft. Also N and the (a, ,] 
give the coefficients of g(z). 

(10) The reader is referred to the JI57 write-up for 
information of a more general nature . 

J21Q Storage (without slaves) 

Region A (erasable) 27 words (A00-A26) 

Region B (semi -erasable) 10+6N words (BO - B9 + 6N) 

Symbolic Code: 320 words 

Highest Symbol Used: *99 

Storage Used by Slave Routines (J169E and J170E) 
Region A (erasable) 7 words (AO - A6) 
Symbolic Code: 27 words 



-8- 



Comblned Storage Used by J210, J169 and J170 
Region A (erasable) 27 words (A00 - A26) 
Region B (semi -erasable) 10 + 6N words (BO - B9 + 6N) 
Symbolic Code: 3^7 words 

Lattice Diagram Describing Master-Slave Routines 

JI69 J170 




J210 



John Derr 
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J211A AUTOMATIC COMPUTATION OP THE ZEROS OP A POLYNOMIAL 
WITH COMPLEX COEFFICIENTS — FLOATING POINT 

J211A makes use of J210 to compute the roots of polynomials. 
The user needs only to place a copy of the current version of the 
Floating Point System before the last card of J211, record the 
necessary input data in punched cards, place these cards imme- 
diately behind J211, and press the LOAD button. The roots of 
the polynomials will be computed and printed one at a time. 

Input Form 

Information should be punched in the Floating Point Data 
Form as follows: 
Header card for a problem 



Pos (1) S 



EXP 



MANTISSA 

Pos (2) S 

EXP 

MANTISSA 
Pos (3) z Q R 
Pos (4) Zq 1 



+ (blank) if all coefficients are real 

- if any coefficient is not real 

m m the maximum number of distinct roots 

.to be evaluated (usually m=n) . If 

m»0, then m will be set « n. 
ID (If ID-O, then the coefficients of f(z) 

will be printed.) 
Iff -, set fi^O when | sf\ < £ |if|. 
Iff 0, the final reduced polynomial g(z) 

will be printed, 
n « degree of f (z) . 

Iff Zq^O, the starting value for the first 
iteration cycle and for the first 
root will be z Q . 
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Pos (5) Iff €^0, then € will replace the€(10~ 7 ) 

in J210. 
Pos (6) Iff t^O, then r\ will replace the rj (10* ) 

in J210. 
Coefficient cards for a problem 

The coefficients are punched 6/card into consecutive 
positions of the cards beginning with position (l) of the next 
card after the header card. If the sign in position (1) of the 
first card is + (blank), then only the real components of the 
coefficients are to be punched and these must be in consecutive 
positions (no gaps). Otherwise, the real and imaginary compon- 
ents of each coefficient must be punched. The last card for 
each problem must contain an EP mark (12 punch (+) in col. 80) . 
A sequence of problems 

The roots for a sequence of polynomials can be evalu- 
ated by placing the input cards for the polynomials in sequential 
order behind J211A. If the input cards are followed by two 
blank cards, the console will show READER upon completion of 
the last problem. 

Output Form 

The page will be ejected prior to the beginning of each 
problem. The numbers printed will be in the external Floating 
Point form. The print format is that described for the 017 (PNT) 
order in the Floating-Point write-up. 
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Printlng for one* problem 

A B 



Information in posi- 
tions 1,2,3 of header 



+*/, _ _ R 



card ' +m ID -O/l n z Q 

Information in posi- 
tions ^,5,6 of header -j. 
card z Q £ t\ 

If ID ■ 0, the coefficients of f (25) will be printed in positions 

A and B as follows : 

Space 

R « I/„ R 



Coefficients begin here C n C n ' C n-1 



Coefficients end here C R /C 1 R C^/C^/blank 



Space 



Roots begin here k^ 

R n I 



V V |g(O x ) 



k P 



(p th ) last root com- _ 

puted fi p R flp 1 |g(Qp) 



Space 
Space 



If 0/1 ■ 0, then the coefficients \aA of g(z) will be printed 
as follows: 

Coefficient of z N a Q R aQ 1 N 

• • • 

• • • 

Constant coefficient a N a N 



J211A 



NOTES 

(1) If n exceeds 450, then following the printing of the 
contents of the header card and the printing (if any) of the 
coefficients of f(z), J211 will begin the next problem (if any). 

(2) p < min (m, n) and N < n - \~ k., where here N denotes 

the degree of the last reduced polynomial g(z) . 

(3) If f(z) has real coefficients, G 1 / 0, and 111 1 ! > |ft k |-€, 
then J211 will set z Q » J? - flF, provided fl R - 1 has not been 
evaluated previously. 

(4) if the process does not converge, then the printer 
will be spaced twice, z^, z ± J , and |g(z ± )| will be printed on 
one line, and the printer* will be spaced twice again. Then if 
0/1 m o, the coefficients of g(z) will be printed as described 
above. In any event, J211 will then begin the next problem (if 
any) . 

(5) The^ following approximate times were recorded while 
operating in the SD mode: 

z 3 - 1 required 10 sec . z 5 . ± requlred 34 sec # 

z 9 - 1 required 1 min. 10 sec. 2 17 - l required 5 min. 10 sec. 

33 
z • J - l required 30 min. 

(6) The user is referred to the J210 write-up for a de- 
scription of the method. 

(7) The computation for any one problem can be interrupted 
by manually transferring to 5560g. The result will be the same 
as in (4). Note that the coefficients of g(z) will be printed 
only if 0/1 » 0. 
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(8) J210 has been modified by placing breakpoint tracing 
marks in certain key words. Thus, if T2 is on, the following 
information will be printed: 

5160 halves computed (Az)i and subtracts from z, t if 



5162 



f i+1 | < n |q m (0)| and \r*\ > n^q^O) 



R ! t I 

5211 x is compared with 2-6 and \x I is compared with 

5213 



x R 



5251 the computed (Az). is multiplied by k-£ 
5253 i 



5254 the computed (Az), Is added to z, 
5256 1 * 

5435 the computed (Az), is replaced by (Az)? /(Az)? 

5436 x x x 

5437 and added to z, . 
5440 1 



Program available as J211A. 



John Derr 
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™?™S° JS£ T SQUARES P0LYN0M IAL APPROXIMATION 
FIiOAriNG POINT 



J212 is an automatic version of JI78. The user needs only 
to Insert the current version of the Floating-Point System pre- 
ceding the last card of J212, to record the necessary input data 
in punched cards, place these cards immediately behind J212, and 
press the LOAD button. The coefficients (a^of the approximating 
polynomial M 

f (x) = \~ a^ 1 

will be computed and printed for each header card. 
Input Form 

Information should be punched in the Floating Point Data 
Form as follows: 
Header card for a problem 
pos M s J+ if data triplets are to be printed 

(^ if data triplets are not to be printed 

M - degree of polynomial f (x) 

ID (any decimal information) 

+ if data cards follow 

- if no data cards follow 

Blank 

N o number of points 

Blank (or +) 

00 if (x i ,y 1 ,r^) is to be printed 

£1 lf (x ± *y 1 »y 1 ) is to be printed 

(Tit ^-0 for A < J < M 2 . 

|p_ otherwise 
Positions (4), (5), ari d (6) of the header card are not inter- 
preted by J212A. 



pos (2) 



Pos (3) 




MANTISSA 



1 
2 



"i * y i* " y±' Hence, y ± * » r± + y 



See JI78 write-up. 
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(x 1 ,y ± )Data Cards for a problem 

The number pairs (x^) must be punched In consecutive 
three-position blocks beginning with the first card following 

the header card. 

(1) ' (2) (3) (*) (5) ( 6 ) 

1st Card x ± Y 1 "" x 2 y 2 



x M y w — + 

+ 



last card (N even) x N _ 1 y N-1 — x n y N 
(N odd) x N y N 

Further, there must be an end of file mark (12 punch) in column 

80 of the last data card. 

Hards for a sequence of problems 

' There is a one-to-one correspondence between header cards 
and problems. A sequence of problems can be solved by placing 
the associated header cards together with the data cards 
following (if any) in sequential order behind J212. If the 
entire deck of input cards is followed by two blank cards, the 
console will show "READER" following the completion of the last 
problem. 

Output Form 

The page will be ejected prior to the beginning of each 
problem. The numbers printed will be in the external floating 
point form. The print format is that described for the 017 
(PNT) order in the Floating-Point write-up. 
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Printlng for a problem 

A B C 

S EXP MAN S EXP MAN | EXP MAN 

Information , i M ID - 00 N -0 71 /O 
in header card 

Space - 

Coefficients a Q a 1 a 2 



Space 

If the number triplets are to be printed, they are printed 
one triplet per line in the natural order. 

x i *i vv 

x 2 y 2 v 2^^ 



X N y N r N' y N* ' 



Notes 



(1) Prior to entry into J178, the set of (x.A is replaced by 

( x i " m ) 



the set of {x, - m \ where 

' N 



m 



.£N- 



Upon exit from J178> J19 1 * is used to compute the coeffi- 
cients Jail. 

( 2 ) l < M < 5**™* M+l < N < 120 1 must hold. 

(3) If fyOt then the decimal equivalent of the octal number 

if J <4 <^q 4 <£ must be presented to|J2l2. For example, 
suppose M=5 and it is desired to Impose the condition that 



1 The upper bound of 120 on N was artificially imposed. 
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the odd powers of x 1 shall vanish. Hence, we want 

a n - a - a c - 0. Then <f- (101 010) 2 - (52) 8 - (^2) 1Q . 
1 3 -> 

cT b 42 is presented to J212. 

(4) A 13X halt will occur at (2434) 8 if the computational 
checking criteria is not met in any row during the forward 
solution in J196. The calculation will continue if the 

GO button is pressed. This halt can occur due to the loss 
of significant digits in the matrix solution. 

(5) A 13X halt will occur at (2533) 8 if the computational 
checking criteria is not met in any row during the back 
solution. The calculation will continue if the GO button 
is pressed. This halt can occur due to the loss of sig- 
nificant digits in the matrix solution. 

(6) A 13X halt will occur at .(2357) 8 if det T - 0. If the 
GO button is pressed, then J212 will exit JI96 and JI78. 
If printing occurs upon completion of this problem, the 
results will be incorrect. J212 will continue ahead' to the 
next problem if there is one. 

(7) A check sum 13X halt at (00l4) Q indicates that J212 has 
probably been loaded incorrectly under the control of J180A. 
The entire loading process should be restarted. 

Accuracy 

Using x, - 0(.05)1 and the exact corresponding values of 
y ± obtained from a table of Legendre polynomials of degrees 
M - 2, 3, 4, 5 the number of correct significant digits obtained 
in the computed coefficients was as follows: 



J212A 
-5- 



M»2 9 digits M-3 9 digits 
M»4 8(-) digits M»5 7 digits 

Timing 

See the discussion of timing in the J178 write-up. The 

times there do not' include input-output times, however. 

Program available as .J212A. 



John Derr 



J2 13A CHANGE ADDRESS FIELDS 

J213A will reproduce style E cards changing the location 
and addreaa fields which have epeclfled contents to specified 

quantities. 

For the purpoee of thla write-up an addreaa may be regarded 
as a sequence of four alpha-numeric characters. In usl*g J813A 

a sequence of pairs of addresses a v P r ■■■■ <V h 

„ p is specified on control cards. A dec* of style- E cards 
will then he processed. All information except the information 
in the location and address fields will be duplicated. Any . 
iocatlon or address field not equal to any of the „, will be 
duplicated. A location or address field equal to one of the a, 
will be replaced by the corresponding p r 

■ The pairs a,. P t are placed in the left and right addreaa 
fields of successive style E control cards. 

m determining if two addresses are equal it is required 
that they be equal, character by character. In particular, 
addresses which differ only in that zeros are replaced by blanks 
will not be regarded as equal. This can be changed oy turning 
Tl on. If this is d6ne, addresses which can be made equal by 

*„ hi.nica will be regarded aa equal and no zeros 
changing zeros to blanks wiii oe i» 6 

will be punched in location or addresa fields. 

The cards punched are ordinarily echo checked. T2 on will 
suppress echo checking. 
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Preparatlon of Deck: 

J213A 

Control Cards 

Blank Card 

Deck to be Processed 

2 Blank Cards 



13X stops: While reading in Program; check sura stop, 
While processing cards; Echo check stop. 

Program available as: J213A 



Norman Shapiro 
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' J214E NATURAL LOGARITHM 

J214 computes the natural logarithm of a number y, 
where < y < 2™. 

J2l4 is entered with 2"" q y in MQ, where < 2 _q y < 1 and 
-39 < q < 39. On exit from J2l4 2" 5 ln y is in the accumulator. 

Calling sequence: 

a 020 a 010 3 

a+1 q-2"39 

a+2 Control returns here 
Program stop at word 27, right, if y < 0. Hit GO to exit from 

J214, accumulator will contain |2 _cl y| . 
Region A (erasable): 5 words, AO to A4. 
Symbolic code: 36 words 
Highest symbol used: * 10 
Timing: J214 has 7 multiplications and a division as compared 

to 40 multiplications for J190. 
Accuracy: Logarithm accurate to 9 decimal places. 
Program available as J214E. 

The power series used was taken from the ILLIAC manual, Code 43, 



Marvin Shapiro 
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J215E 10 PT. GAUSSIAN INTEGRATION -- FLOATING POINT 

J215 computes ^ f(x)dx using a 10 point Gaussian formula. 
This is equivalent to approximating f (x) by a polynomial of 
degree 19. 
Auxiliary routine: 

J215 utilizes an auxiliary subroutine written by the 

programmer to compute f (x) . This subroutine is entered from 

J215 with x in the floating-point AMQ. The calling sequence 

to the subroutine is : 

7 020 7 010 F 

7+1 Control returns to left of 7+1 in floating point 

At step 7+1 f(x) must be in the floating point AMQ. The exit 

from the auxiliary subroutine must be made with the floating 

point system in control. 

Calling sequence: 

a 020 a 010 p 

a+1 a (in floating point form) 

a+2 b (in floating point form) 

a+3 Control returns to the left of a+3 in floating point 

a and b must be in the floating point data form. The final 

exit from J215 to step a+3 is made with the floating point 

system in control. 

On exit from J215 / f(x)dx will be in the floating point 

AMQ and in cell A 0. 

Region A (semi-erasable): 4 words, A to A 3. Region A is 

erasable except for the f(x) routine. 

Region F: f (x) routine 
Symbolic code: 46 words 
Highest symbol used: * 16 
Program available as J215E. 

Marvin Shapiro 
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J216A 



JOHNNIAC MUSIC 



Anyone who can read music can write or transcribe music 
for the JOHNNIAC. The following staffs show the allowable 
notes and their JOHNNIAC Music Assembler designation: 




HZ^^ 



<gg> < £^-<g>- 



Sharps are denoted by an asterisk (*), flats by a comma (,)'. 
Any valued note may be designated for the assembler. For 
example : 




would be written 


as : 










Col. 9 


10 


11 


13 


14 


16 


17 


P 


* 


4 





1 





4 


A 




4 





1 





8 


Q 




4 





1 





2 


C 




5 





1 


1 


6 


F 


# 


5 





3 





8 


B 


> 


4 





1 


3 


2 
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The time signature need only be entered upon the first 
card and the beats per minute also need only be entered on 
the first card unless it changes during the progress of the 
song, whence it should be entered again. 

The decimal card form for input is as follows: 

Cols. Description 

I and 3 Time signature 
5-7 Beats per minute 

9 Note (Alphabetic designation) 

10 Sharp (Asterisk (*) if note is sharped; 
comma (,) if note is flatted) 

II Octave (Numeric designation shown in 
above staff) 

13-14 Numerator of value 
16-17 Denominator of value 
18-80 Comments 

A rest is denoted by an R in the note field, sharp and 
octave must be blank. 

An End of Song (or File) is a blank card and reading 
ceases at that point. 

The Deck is made up as follows: The JOHNNIAC Music 
Assembler, the decimal song deck, and 3 blank cards. The 
whole deck is read from the primary feed of the reader. When 
the end of file card is reached, the machine will stop unless 
T3 is on. If T3 is on, a complete self-loading binary deck 
will be punched, and then the machine will stop. 

In order to play the tune, put the Hoot Selector on 
105, press the reset button next to the Hoot Selector and hit 
GO. To stop the song at the end, put HI on, to repeat, hit 
GO. The above instructions also hold when playing the song 
from the binary deck. 
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The switches Tl and T2 may be used to alter the speed 
of playing the song, as follows: 

Tl off T2 off - as written 
Tl on T2 off - play twice as fast 
Tl off T2 on - play 4/3 as fast 
Tl on T2 on - play 4/5 as fast. 
Decimal input forms are available, and any questions 
will be answered by M. Bernstein. 
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J217A STYLE D LOWER LOADER 

J217 will load Itself and the following style D binary 
cards into H.S.S. checking the check sum of most cards. The 
loader will not check the check sum of any card which has a 
9 punch in col . 1 . 

Loading will cease when the loader encounters a card 
which has no 9 punch in col. Hi. The loader will then execute 
the op eration in the 9's row cols. 1 -7, in association with the 
address in the 9's row cols. 29-^ of this card. 

If the check sum fails to check, there will be a program 
stop with NIA - 0037q. The accumulator will contain 
check sum - computed check sum) . To continue, hit GO; no 



2 (card 



cards are lost in this process. 

To re-enter the loader, transfer to the left of OOOlg. 

Program Location: 0000 - 004 3q 

Program Stop: NIA » 0037g - check sum stop. 

Program available as J217A. 



M. I. Bernstein 
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J218A STYLE D UPPER LOADER 

J2.18 will load Itself and the following style D binary 
cards into H.S.S. checking the check sum on most cards. The 
loader will not check the check sum on those cards which have 
a 9 punch in col. 1. 

Loading will cease when the loader encounters a card which 
has no 9 punch In col. M, the loader will then execute the 
operation in the 9's row col. 1-7 in association with the 
address in the 9's row cols. 29-40 of this card. 

If the check sum fail3 to check, there will be a program 
stop with NIA <* 7777 Q . The accumulator will contain - ~ (card 
check sum - computed check sum). To continue loading, hit GO. 
No cards are lost in this process. 

To re-enter the loader, transfer to the left of 77^1q- 

Program Location: 773^o - 7777q 

Program Stop NIA - 7777q Check Sum Stop 

Program available as J218A. 



M. I. Bernstein 
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J219A STYLE D CHECK SUM CORRECTOR 

J219 is a self-loading program which will correct check 
sums in Style D binary cards. If a 9 punch is present in col. 
1 to prevent the check sum from being checked while loading 
with J217A or J218A, it will be eliminated before the new check 
sum is formed. 

The cards which are to be corrected should be loaded imme- 
diately behind J219 plus three blanks at the end. Card for 
card each one is read and a new one is punched until a card 
with no 9 punch in c ol. 4l is encountered, at which time a pro- 
gram stop occurs with NIA * Ol44g. 

Program Stops: NIA = Ol44g - end of program 
Program available as J219A. 



M. I. Bernstein 
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J220E SOLUTION OP A SYSTEM OP ORDINARY DIFFERENTIAL 
EQUATIONS - FLOATING POINT L 



J220 solves a set of differential equations with the 
following call sequence: 

a 020 a 010 p 

a+1 d 

a+2 Return (outside floating point control) 
where d is the location of the first word of the auxiliary 
subroutine. 

The following library region bases must be designated 

before input of this subroutine in the following manner: 

Region Origin Use 

D a The numbers in a+i are the variables y. 

(i-0, ..., n-1). Originally the initial 

values are placed here. 

The origins of regions E, F, and Q are used as preasslgned 

parameters by J220. 

E b-a The numbers in b+i are the scaled derivatives', 

hy^, calculated by the auxiliary subroutine. 
. b > a+n-1. 

F c-b Locations c+i are used as temporary storage for 

this subroutine. These locations must be cleared 
to zero before this subroutine is entered for 

the first time, c > b+n-1. 

_ 

c+n n is the number of differential equations to 
be solved. 
Region A (erasable): 4 words 
Symbolic Code: 45 words 
Highest symbol used: * 48 
Program available as J220E 

1 This routine is a floating point version of J126. For a 
description of the method see the writeup for J126. 
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J221E PRINT 


DECIMAL 


NUMBERS 


Calling 


seq: 






Loc 




OP 


ADDR 


a 




020 


a 


a+1 




000 


0000 


a+2 




000 


L l 


a+3 




000 


?1 


a+3w-2 




000 


0000 


a+3w-l 




000 


L w 


a+3w 




000 


Pw 


a+3w+l 




100 


AL 



- VARIABLE FORMAT AND SCALING 



OP 

010 

000 

000 

000 



000 
000 
000 
000 



ADDR 

Si 



k, 



w 
n 



a+3w+2 



Control returns to left of a+3w+2 



^i 
AL; 



Pi 



k, 



n 



Location of i print word on first line 
Increments of locations of print words^ ' 
Space to left of 1 word on each line' 1 ' 

No. cf bits (excluding 2° bit) to left of 

th 
binary point in i word en each line 

Number of decimal digit positions to left of 

■4* V* 

decimal point in i word on each line 

Number of decimal digits to be printed in i 
word on each linev 2 ) 

Number of lines 
w 



th 



0000 < L x < 7777 8 

0000 < AL < 7777g 

< * ± < 120 1Q 

<^l<39 10 
< Pi < U 1( j 



1 < \ < H 10 



Restriction 



f (k.+s,+l)+(the number of i with p < k ) < 120 

i=l 1 1 2 x 



J221 will print n lines, w words per line. The scaling and 
format specification must be the same for the l zn word on each line 
(1 < 1 < w) and is specified in the calling sequence, by a+3i-2, 
a+3T-l and a+3i. The locations of the it" word on successive lines 
must differ by AL, i.e., the locations of the i th word on successive 



^ 'A more precise definition appears below. 

(2) 

v 'If p > k, the k most significant digits will be printed. 



J221E (Cont.) 

lines must be L ± , I^+AL, ", L.j + (n-l)£L. 

Leading zeros but not following zeros will be suppressed. 
Decimal points will be printed except when p > k in which case 
no space will be allocated for the decimal point. Signs will be 
printed immediately to the left of the first digit position. Plus 
signs will appear as blanks. 

s. is the number of .blanks to appear to the left of the sign 

th 
position of the i word on each line. 

, * 

An Incorrectly scaled number will appear as a sequence of 
decimal points. The numbers to be printed will be approximately 
rounded. Number which can be printed exactly within the specified 
format will be so printed (regardless of rounding) . Numbers which 
are correctly scaled before rounding but incorrectly scaled after 
rounding will not be rounded. 

J221 post spaces 

Region A (erasable )-4o words, AO-A39 
Symbolic code - 168 words 
Available as J221E 



M.and N. Shapiro 



■*• "• - l J • .' i 



J222E - PRINT DECIMAL NUMBERS - UNIFORM FORMAT AND SCALING 
Calling sequence: 



Loc . 


OP 
020 




ADDR 
a 




OP 
010 


ADDR 


a 


P 


ct+1 






AL 






s 


ct+2 






L 






q 


a+3 






P 






k 


a+k 






w 






n 


a+5 


Control 


returns 


to 


left of a- 


t-5. 



L : Location of first print word 

AL: Increment of locations of print word 



s 
Q 
P 

k 

w 
n 



A) 



Space between printed words* 

No. of bits (excluding, 2° bit) to left of 
binary point 

Number of decimal digit positions to left 
of decimal point 

Number of. decimal digits per word to be 
printed^ 

Number of words per line' 

Number of lines. 



0000 < L < 7777 8 
0000 < AL < 7777 8 
5 10 



< s < 120. 



< q < 39 10 
< P < H 10 



< k < 11 



10 



Restriction w(k+s+l) < 120 if p > k, w(k+s+2) < 120 if p < k. 

J222 will print n lines, w words per line. Each word must 
have the same scale factor and will be printed with the same format. 
The words to be printed must have locations 

(mod. 2 12 ): L, L+AL, •", L+(nw-l)AL. 

Leading zeros but not following zeros will be suppressed. Decimal 
points will be printed except when p > k, in which case no space 

I 'A more precise definition appears below. 

If p > k, the k most significant digits will be printed. 



J222E (Cont.) 

will be allocated for the decimal point. Signs will be printed 
immediately to the left of the first digit position. Plus signs 
will appear as blanks. 

s is the number of blank columns to appear to the left of the 
sign position of each word. 

Incorrectly scaled numbers will be printed as a series of 
decimal points. The numbers to be printed will fee approximately 
rounded. Numbers which can be printed exactly within the specified 
format will be so printed (regardless of the rounding). Numbers 
which are correctly scaled before rounding but incorrectly scaled 
after rounding will not be rounded. 

J222 Post spaces 

Region A (erasable)- 36 words, AO-A35 
Symbolic code - 166 words 
Available as .J222E 



M. and N. Shapiro 



1-o-^d 



J223E - PRINT DECIMAL NUMBERS - UNIFORM FORMAT AND SCALING 
Calling sequence: 



Loc . 

a 
a+1 
a+2 
a+3 
a+4 
a+5 



OP 

020 



ADDR 
a 

AL 
L 

P 
w 



OP 

010 



ADDR 


3 

q 
k 

n 



Control returns to left of a+5. 



L : Location of first print word 
AL: Increment of locations of print words' 1 ^ 

ID 



s 

q 

p 

k: 

w 
n 



Space between printed words* 

bina?y point (excludln SJ 2 ° bit) to left of 

Number of decimal digit positions to left 
of decimal point 

Number of. decimal digits per word to be 
printed lw 

Number of words per line 
Number of lines. 



0000 < L < 7777 8 
0000 < AL < 7777 8 
< s < 120 10 



< q < 39 



'10 



< P < H 10 



< k < i^xo 



Restriction w(k+s+l) < 120 if p > k, w(k+s+2) < 120 if p < k, 

J223 will print n lines, w words per line. Each word must 
have the same scale factor and will be printed with the same format. 
The words to be printed must have locations 

(mod. 2 12 ): L, L+AL, '", L+(nw-l)AL. 

Leading zeros but not following zeros will be suppressed. Decimal 
points will be printed except when p > k, in which case no space 

( 'A more precise definition appears below. 
(2) 

If p > k, the k most significant digits will be printed. 



J223E (Cont.) 

will be allocated for the decimal point. Signs will be printed 
•immediately to the left of the first digit position. Plus signs 
will appear as blanks. 

s is the number of blank columns to appear to the left of the 
sign position of each word. 

Incorrectly scaled numbers will be printed as a series of 
decimal points. The numbers to be printed will be approximately 
rounded. Numbers which can be printed exactly within the specified 
format will be so printed (regardless of the rounding) . Numbers 
which are correctly scaled before rounding but incorrectly scaled 
after rounding will not be rounded. 

J223 Post spaces 

Region A (erasable)- 36 words, AO-A35 
Symbolic code - 167 words 
Available as J223E 



M. and N. Shapiro 



7-31-59 

J 225 - MOUSE MATRIX TO PRINTER ALPHA NUMERIC 

J225 prints 80 columns corresponding to the 80 columns 
encoded in MOUSE MATRIX form. The left 40 columns are printed 
from BO - B6, and the right 40 columns are printed from CO - C6. 
Each of the 80 columns may contain any alpha-numeric character. 

Before entering J225 a 100 0004 order (to print in C, fln ) 
or a 100 005 order (to print in C 2fl _ 120 ) must be given. The 
programmer must give appropriate 106 orders at the appropriate 
times as J225 does not space the printer. 

Calling Sequence: 

a 020 a 010 p 
a+1 Control returns at left of a+1 

J225 does not space the printer 



Space required: 



Symbolic code - 139 words 
Region A - 28 words (A3 - A30) 
Region B - 7 words (BO - B6) 
Region C - 7 words (CO - C6) 



M Shapiro 



ti-h-'yj 



J226E* PRINT DECIMAL NUMBERS - VARIABLE FORMAT AND SCALING 
Calling Sequence: 

ADDR 



Loc 

a 
a+1 
a+2 
a+3 



OP 

020 
000 
000 
000 



a 
0000 
L, 



OP 

010 
000 
000 
000 



ADDR 



8 1 

q l 

k. 



a+3w-2 
ori-3w-l 
a+3w 
crt-3w+l 
a+3w+2 



000 
000 
000 
100 



0000 

L w 

Pw 
AL 



000 
000 
000 
000 



3 w 

% 

k w 
n 



Control returns to left of a+3w+2 



"i 
AL 

s l 



k i s 



n 



Location of i print word on first line 

(1) 



Increments of locations of print words 

J.V. 

Space to left of i word on each line 



(1) 



No. of bits (excluding 2° bit) to left of 
binary point in i word on each line 

Number of decimal digit positions to left of 
decimal point in i word on each line 

Number of decimal digits to be printed in i 
word on each line * ' 

Number of llne3 



th 



0000 £ L^ < 7777g 

0000 < AL £ 7777g 

< l b ± < 120 1Q 

° 1 % <L 39 10 

£ Pi < n i0 

i^ii n i0 



Restriction: 



w 



(kj+s.j+1) + (th number of i with p ± £ k.) £ 120 

J226 will print n lines, w words per line. The scaling and 
format specification must be the same for the i^h word on each line 
(1 < 1 £ w) and is specified in the calling sequence, by ct+3i-2, 
a+3i-l and a+3i. The locations of the i fc " word on successive lines 
must differ by AL, i.e., the locations of the ith W ord on successive 

(1) A more precise definition appears below. 

(2) If p >k, the k most significant digits will be printed. 



J226E* (cont'd) 

lines must be L ± , L ± + AL, ..., L, + (n-1) AL. 

Leading zeros but not following zeros will be suppressed. 
Decimal points will be printed except when p > k in which case 
no space will be allocated for the decimal point. Signs will be 
printed immediately to the left of the first digit position. Plus 
signs will appear as blanks. 

3 1 is the number of blanks to appear to the left of the sign 
position of the i th word on each line. 

An incorrectly scaled number will appear as a sequence of 
decimal points. The numbers to be printed will be approximately 
rounded. Number which can be printed exactly within the specified 
format will be so printed (regardless of rounding). Numbers which 
are correctly scaled before rounding but incorrectly scaled after 
rounding will not be rounded. 

J226 post spaces 

Region A (erasable) - 40 words, AO-A39 

Symbolic Code - 169 words 

Available as J266E 



M. Shapiro 



* This routine replaces J221E, which had an error in it 



J227 Message Printer 

J227 Is designed to print headings, messages to the 
operator, etc . A message consists of up to 120-alpha-nuraeric 
characters and is encoded into a block of 21 words. A message 
is read in by calling on J227 at a time when the message is in 

41-80 of up to three cards at the read position of the primary 
feed of the collator. Several messages may be stored in* 
distinct blocks, and the same message may be printed several 
times . 

Calling sequence: 

a 020 a 01k p 

a+1 xyz 0000 000 L 

a+2 Control returns to left of ct+2 



ko0 


for 


message reading 


k»4 


for 


message printing 


x#y*z « or 


1 




Message Reading. 







Referring to the blocks (L+0 through L+6), (L+7 through L+13) 
(L+14 through L+20) as a, and J respectively. If x » 1 the 
contents of kl-Bo of a card will be encoded into a; if x ■ 0, 
a will not be altered. Similarly, no corresponding card will be 
read. 

Thus, if, e.g. x * 1, y « 0, z - 1, then 2 cards will be 
read, 41-80 of the first card be encoded into a, C 4l-80 of 
the second card will be encoded into T and will be unaltered. 
If x * 0, y * 0, z o then neither a, p, nor / will be altered 
and no cards will be read. 



J227 
-2- 



Message Printing . 

If x - 1, the message encoded in a will be printed in 
columns 1-1*0 of the printer; if x - C l-40 will be left blank. 
Similarly for y, p and Cols 41-80 as well as z, 7 and Cols 81-120 
If x » 0, y «. 0, z . 0, there will be no printing but the printer 
will be spaced. 

CAUTION* In many cases it will be better to use several library 
routines rather than J227. 

NOTE: The ho columns of Information stored in each block a, , 
and Y are in Mouse form. 

J227 Pogtspacea (i.e., it spaces- after printing) 

Symbolic Code: 213 words 
Region A ( erasable): AO to A 43 
Program available as J227 



M. Shapiro 



J228A OCTAL MEMORY DUMP - 4 PER LINE 

J228 prints 4 full words and the location of the first word 
in octal on one line. All cf memory is printed except that only the 
first line of a block of zero or equal lines is printed. The 
printer is spaced cne to indicate such a block. 

The first card of J228 is a special loader which puts cells 
0003-1024 onto the drum, band C, position 0. Only cells 0000-0002, 
v/hich are used by this leader, are printed Incorrectly. 

Program length: effectively 3 words (0000-0002) in HSS. 

Program halt: 0000 Printing complete, memory restored. 

Program available at J228A. 



Marvin Shapiro 



J230A OCTAL MEMORY DUMP W/O DRUM 2-24-58 

J230 13 a modification of J228 for use without the drum. 
J230 prints four full words and the location of the first word 
in octal on a line. Only the first line of a block of equal 
lines is printed. 

One or more control cards are required by J230. The locations 
of the first and last words to be printed are punched in the 
9's row right of the control card. The first location goes in the 
left address, the last location in the right address. 

Restrictions : 

(1) Only one control card may refer to addresses 

> 7^50) q and it must be the last control card. 

(2) If no reference is made to locations > 7450, only 
the control cards and 2 blanks should be placed 
after J230 (see below) . 

Use : 

(1) Load in primary. Overflow Ign. OFF. 

(2) J230 will punch from 7750)g to 7777) 8 - 

(3) Press LOAD. 

(4) J230 will punch cells 7450) to 77^7)o, and run the 

8 b 
punched cards followed by 2 blanks into the stacker 

of the punch. 

(5) Place the control card(s), the binaries which were 
just punched, and the 2 blanks after J230. 

(6) Pres3 LOAD or GO. 

(7) J230 will stop with the reader on SELECT. 
Cells 0000, 0001, 0002 are printed incorrectly. 
Memory is not restored. 



J230A 
-2- 2-24-58 

Program Length: 

0000(1)0002, 7120) 8 (1)7777) 8 or 7^0)q(1)7777)q if no 
location is > 7450)0. 
Program Halts : 

NIA = 0003, overflow indicator ON. 

"Sneak on" is complete. 
NIA = 7764) 8 . Memory from 7450) Q to 77^7) 8 has been 

punched . 
NIA = 7510) 8j reader on SELECT. Pinal stop. 



W. L. Sibley 



4-11-57 

J232A INSERT BLOCK CHECK SUMS INTO STYLE P DECK 

J232 converts a 8tyle P deck (with cr without check 3ums 
or with incorrect check sums) into a 3tyle P deck with block check 
sums. To use J232 place 
1 Blank Card 
J232A 

Control Card . 1 
Style P Deck to be Converted 
in primary; load and gc. When the computer stop3 with the reader 
selected run tihe cards out UNTIL THE COMPUTER STOPS WITH A 13X . 

The punched cards will carry an I.D in C 15 as determined by 
C, e cf the control card, and will be sequenced in Cg_g beginning 
with one greater than the number in C^_o cf the control card. To 
begin sequencing with 001, leave Cg_g of the control card blank. 
To begin sequencing with 000, punch 999 Into C^g of the control 
card. The punched cards will be echo checked. 
Tl Suppresses Echo Checking 
T2 Suppresses Sequence Numbering. 
Tl and T2 may net be changed once the routine begins. 
Stops Echo Check Stop - Reload NIA - 1202g 
Leading Error - Reload NIA « 0015g 
Job Over NIA ■» 1056g 

Speed Normally about 50' cards per minute. 
For full details concerning what J232 will do under all 
circumstances consult the decimal listing cr see Norman Shapiro. 

Available as J232A 
Norman Z . Shapiro 



11-22-57 

J233E DECIMAL PRINT ROUTINE*. 

J233 converts to decimal and prints a block of H.S.S. 
beginning at a specified location, according to scale factors 
and other specifications stored somewhere in H.S.S. The 
resulting printed page will have one space at the left, sign 
and first word, space, sign and second word, space, etc. There 
will be printing only in the first 40 columns. 

J233 will assume the printer has been prespaced and will 
Itself prespace the printer. 
Let 

a * number of words per line 

b = location of first word to be printed 

c «* number of lines 



d 



location in H.S.S. of scaling factors, etc. (see 
below) 



p, * number of decimal digits left of the decimal point 
of the i th word. 

q 1 = location of binary point in i th word 

n, - number of decimal digits of i th word to be 
printed . 



a 
Thus ST n ± + 2a < 40. 

i 



Calling sequence: 



a 020 a 010 p 
a + 1 a be d 
a + 2 Control returns here 



(continued) 



p. 2 



Locations d (l) d+a-1 in H.S.S. have 



d 
d+1 



d+1-1 



d+a-1 



p l 


q l 


n l 


P2 

t 


q 2 

• 


n 2 

« 


• 


• 


* 


• 


• 


• 


Pl 

4 


q l 

• 


n l 

• 


• 


* 


• 


• 


• 


• 


Pa 


q a 


n a 




If a number Is incorrectly scaled, (0 and 7 overprinted) will 
appear in the sign position followed by all zeros. The program 
will not stop. 

Region 1 (erasable)- 18 words 
Region 3 - 102 words 

Program available as J233B,E 



* This routine is J110 modified' for the new printer. 



11-22-57 



A~-i )J/Luv~ 



J234A OCTAL MEMORY DUMP 



# 



This program prints two full words and the location of 
the first word in octal on one line in C,^. Lines having 
both words zero are omitted. The section of memory to be 
printed is specified by a control card or set of control cards. 

The program uses a special loader which writes the con- 
tents of high-speed memory from 0002 10 to 0499 onto drum 
(drum 0, position 0, band 0), so that all of memory except 
locations 0000 and 0001 may be printed. 

Printing is terminated by a blank control card. If the 
cards have not been run out of the reader at the conclusion 
of printing, memory is restored (except locations 0000 and 0001). 

Deck: J234A 

Control cards 
3 blanks 

Program length: effectively 2 words in high-speed storage 

(764) Q « (500) 10 on drum 

Stops: 0000 Printing complete, memory restored. 

Control Cards: One for each block of memory desired. 

First address punched in binary in 9 row, col. 48-59 
Last address punched in binary in 9 row, col. 69-80 

Program available as J234A. 



* This routine is J114A modified for the new printer. 



11-22-57 



J2 35E PRINT POSITIVE DECIMAL INTEGERS 



* 



Galling sequence: 

Loc OP ADDR OP ADDR 

a A 020 a 

cc+1 010 n 

a+2 Control returns here 

where: A is the location of the first word. 

N, the number of consecutive words to be printed 
J115 will convert consecutive positive words to decimal 
integers and print them one per line. 

Region 3-36 words 
Region 1-10 words 
Program available as J235B,E 



This routine is J115 modified for the new printer. 



J238E PRINT DECIMAL - ONE PER LINE*-' 

Calling Sequence : 

LOC OP ADDR OP ADDR 

a A 020 a 

a+1 010 N 

a+2 Q K 

a+3 Control returns here 

where: A is the loc. of first word to be printed. 

N, the number of consecutive words to be printed. 
Q, the scaling or location of the binary point 

for a11 N words < Q < 39. 
K, the number of digits to be printed in the 
fractional part of the number 1 < K < 20. 
J238 converts to and prints in decimal N consecutive words 
a l>"**> a N ( where |a i )< l) of HSS beginning with location A. 
All numbers must be scaled the same in a block, and the same 
number of digits are converted in the fractional part for the 

block. The minus sign, when appropriate, is printed at the 

13 
left in the 10 J position. Since K can never be less than 1, 

a number with a Q of 39 will appear as XXXXX.O and a number 

with a Q of zero will appear as O.XXXX . . . Conversion of 

the decimal part terminates as soon as the quotient of a division 

by ten is zero so that one digit integers appear as X.O, two 

digit integers XX. 0, etc. 

(continued) 



Region 3-59 words 

Region 1-11 words 

Program available as J238B,E. 



This routine is J119 modified for the new printer, 



J23&E 
p. 2 



KJ- / -J^ 



J239P JOHNNIAC FLOATING-POINT INTERPRETIVE SYSTEM 

J239P Is an absolute binary assembly of the style E 

programs J24O-J250, Inclusive. The absolute location of the 

first word of the program storage for each routine can be 

found below. 

OCTAL DECIMAL 

J240 E 000 5500 2880 

J24l E 000 6262 3250 

J242 E 000 6461 3377 

J243 E 000 6607 3^63 

J244 E 000 6733 3547 

J245 E 000 7306 3782 

J246 E 000 7341 3809 

J247 E 000 7415 3853 

J248 E 000 7467 3895 

J249 E 000 7544 3940 

J250 E 000 7612 3978 

A 000 7713 ^043 

E 000 "* 7763 ^083 

At the time of this writing, the Error Halt Location corresponds 
to NIA « 6l60g. 

Reference : JOHNNIAC Floating-Point Interpretive System Manual 
Program Storage (octal) : 5500 - 7704 inclusive 

7713 - 7777 inclusive 



J. Derr 



tf-b-56 



J240E INTERPRETER-JOHNNIAC FLOATING-POINT SYSTEM 

J240E interprets and executes the following floating* 
point operational 

(l) the "zero a lass" operations 

(ii) 010, Oil, 014, and 015 operations 

(iii) the "two," "three," and "four class" operations 

(iv) the 050 operation 
In addition, J24QE "interprets" all floating-point operations, 
and contains some constants, machine -language oode, and 
storage registers which are at least shared with other 
operations. These other operations correspond to JOHNNIAC 
Literary programs which are (at loading time ) masters to 
J240E. They include J241E, J242E, ..., J250E. The master 
routines refer to the slave routine, J240E, as region F, 
i.e. J240E000 = F000. It is natural then for the user 
to cause the first word of J240E to coincide with F000. It 
is clear that region F must be assigned an absolute location 
before any of the master routines are loaded. Moreover, 
it is also neoessary that the loading of J240E itself precede 
that of any of the master routines. 

Basic Link to J240E 020 $0 010 F000. 

Key Words in J240E 

J24OE0O3 Instruction counter (in Left 

Address) 



J ii401S 



-d- 



ti-ti-5b 



J240E140 

J240E141 

J240E142 

J240E148 
J240E209 
J240E210 
J240E228 

J240E245 
J240E303 



Trap Register - Breakpoint 

tracing 

Trap Register - All Orders 

traoing 

Trap Register - Transfer 

traoing 

Series Test Number 

AMQ Exponent 

AMQ Mantissa 

Pirst word of closed routine 

which counts significant digits 

First word of closed routine 

which normalizes AMQ mantissa 

Error Halt Location 



Remarks on the Use of J240E 

1. The series test number is involved in the series 

calculations for the 054, 055* and 056 floating-point 

00 
operations , If the series is denoted by > ^ and 

the series test number by #, the test for convergence 

depends on the sign of IxJ 1 2~^ - #, Unless altered 

by the user, # = 2*39, 

2, To normalize the AMQ execute the following machine 
language instructions with the AMQ mantissa in the MQ. 

020 $0 010 P228 
020 $0 010 P245 



d**Wi -_>- ti-tf-5ti 



3. To suppress the Error Halt, replace the left 
operation of F303, (13X), by the corresponding 
unconditional transfer operation, (01X). Originally 
J240E303 = P303 oontains 

13 1 * F191 000 0000. 
Following the halt, the interpreter omits the traoe 
printing step, but otherwise proceeds as described 
in the JOHNNIAC Floating Point Interpretive System 
manual. However, F303 is altered by the loading of 
J244E. The reader is in this connection referred to 
the J244E writeup. 

4. J240 cannot be loaded by X267 (to become J267) without 
modification since too many forward references occur. 
Suggestion: Replace the contents of 0045 (absolute 
decimal) by 0200 ( decimal); e.g. place immediately 
behind the last card of X267 (X267A038) a style E 
card with 0045 in columns 14-17, 0200 in columns 32-35, 
and , in column 36. Note that the length of the X267 
program storage is thereby Increased by 100 words. 

Program Storage : 

Region E (Semieraseable): 13 words, E000-E012. 
Region E is available to the user at all times when 

outside interpreter control. 
Region F: 370 words, F000 - F369. 

J. Derr 



11 August 1958 



J24.1E ADDRESSABLE INPUT ~ JOHNK.IAC FLOATING POINT SYSTEM 

When used in conjunction with J24CE, J24.1E will execute 
the 012 floating, point operation an described in the JOHNNIAC 
Floating-point Interpretive System manual. J2H0E must be loaded 
prior to the loading of J241E, and the first word of J240S 
must coincide with F000. 

Program Storage t 127 words (there are 128 style E cards - 
J241E000 to J241E127 inclusive.) 
Erasable Sto rage : 34 words - A000 to A033 



Norman Shapiro 



11 AuguBt 195b 



J242E INPUT DATA CARDS - JOHNNIAC FLOATING POINT SYSTEM 

When used In conjunction with J24QE, J242E will execute 
the 013 floating point operation as described in the JOHNNIAC 
Floating Point Interpretive System manual. J2^0E must be 
loaded prior to the loading of J242E, and the first word of . 
J240E must coincide with F000. 

Program Storage ; 86 words (87 style E cards - J242E000 to 
J242E086 ) . 
Erasable Storage : 30 words - A000 to A029. 



Robert Mercer 
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J24^E PUNCH DATA CARDS - JOHNNIAC FLOATING POINT SYSTEM 

When used In conjunction with J240E, J243E will execute 
the 016 floating point operation as described in the JOHNNIAC 
Floating Point Interpretive System manual. J240E muBt be 
loaded prior to the loading of J243E, and the first word of 
J240E must coincide with F000. 

Program Storage ; 84 words (85 style E cards - J24j5EOOO to 
J243E084). 
Erasable Storage: 27 words — AOOO to A026. 



Robert Mercer 



II August 195b 



J244E PRINT AND TRACE - JOHNNIAC FLOATING POINT SYSTEM 

1 

When used in conjunction with J240E, J244E will execute 
the 017 floating point operation and the tracing aa described 
in the JOHNNIAC Floating Point Interpretive System manual. 
J240E must be loaded prior to the loading of J244E, and the 
first word of J240E must coincide with F000. 

One result of the loading of J244E is to modify the 
Error Halt Location - J240E303 - F303 - so as to become 

130 FI83 000 0000. 

1. To suppress the Error Halt , replace the 130 in F303 
by 010 after loading J244. 

2. To suppress the tracing following the Error Halt, replace 
1^0 FI83 in F303 by lj4 F191 after loading J244. 

Program Storage ; 235 words (239 style E cards - J244E000 to 

J244E238). 
Region E(Semierasable) : 13 words, E000 — E012. 
Region A(Erasable): 40 words, A000 - A039. 
Note ; A39 = 7777g will result in printing 1 word per line. 



Marvin Shaprio 
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J245E SQUARE ROOT - JOHNNIAC FLOATING POINT SYSTEM 

When used in conjunction with J240E, J245E will execute 
the 051 floating point operation as described in the JOHNNIAC 

« 

Floating Point Interpretive System manual. J240E must be 
loaded prior to J245E, and the first word of J240E must coincide 
with F000. 

Program Storage : 27 words (28 style E cards - J245E000 to 

J245E027) . 
Region E: 13 words, E000 - E012. 



John Derr 



11 August 1958 



J246E SINE - COSINE - JOHNNIAC FLOATING POINT SYSTEM 

When used In conjunction with J240E, J246E will execute 
the 052 and/or 053 floating point operations as described in 
the JOHNNIAC Floating Point Interpretive System manual. J240E 
must be loaded prior to J246E, and the first word of J240E muBt 
coincide with F000. 
Program Storage ; 44 words (46 style E cards - J246E000 to 

J246E045). 
Region E: 13 words, E000 - E012 



John Derr 



XX AU£Ufcii, X"J~J)<-> 

J247E ARC TANGENT - JOHNNIAC FLOATING POINT SYSTEM 

When used in conjunction with J240E, J247E will execute 
the 05^ floating point operation as described In the JOHNNIAC 
Floating Point Interpretive System manual. J240E must be 
loaded prior to J247E, and the firstword of J240 must coincide 
with F000. 
Program Storage ; 42 words (4} style E cards - J247E000 to 

J247E042). 
Region E; 13 words, E000 - E012. 



John Derr 
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J248E EXPONENTIAL - JOHNNIAC FLOATINO POINT SYSTEM 

When used In conjunction with J240E, J248 will execute 
the 055 floating point operation as described in the JOHNNIAC 
Floating Foint Interpretive System manual. J240E must be 
loaded prior to J248E, and the first word of J240E must coincide 
with F000. 
Program Storage : 45 words (46 style E cards - J248E000 to 

J248E045). 
Region E ; 12 words, E000-E012. 



John Derr 
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J24&E LOGARITHM - JOHNNIAC FLOATING POINT SYSTEM 

When used In conjunction with J240E, J249 will execute 
the 056 floating point operation as described in fche JOHNNIAC 
Floating Point Interpretive System manual. J240E must be 
loaded prior to J249E, and the first word of J240E must coincide 
with FOOO. 

Program Storage: 38 words {ko style E cards - J249E000 to J249E039)» 
Region E: 13 words, EOOO - E012. 



John Derr 
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J250S INDEXING ~ JOHNNIAC FLOATING POINT SYSTEM 

When used In conjunction with JZkQE, J250E will execute 
the 070-074 floating point operations as described in the 
JOHNNIAC Moating Point Interpretive System manual. J240E must " 
be loaded prior to J250E, and the first word of J240E mu3t coincide 
with FOOO. 

The Indexing Registers are stored in the following words . 
of J250E. 

Index Register Location 

A J250E028 (29th word of J250E) 

B J250E020 (21st word of J250E) 
C J250E016 (17th word of J250E) 

D J250E014 (15th word of J250E) 

E J250E013 (14th word of J250E) 

F J250E012 (13th word of J250E) 

Program Storage ; 59 words (64 style E cards - J250E000 to J250E063). 
Region E: 13 words, E000 - E012 



John Derr 



7-10-57 

J253E FIXED POINT SQUARE ROOT 1 

J253E is a closed subroutine which will evaluate the non- 
negative solution of the equation x « |a|, i.e. x « + / |a| . 
Before executing the basic link into J253, a must be in the 
MQ, where < |a| < 1. When J253 : links back to the main 
program x will be in the Accumulator and < x < 1. 
Calling sequence: 

020 $ 010 # (Link to J253E) 
Description of the Method: 



J253 first normalizes a so that 2" 2 < a*2 2q < 1, provided 

2a £/ 4 + y if iA < y < 1/2 

that a/0. Let y - a-2 *. y Q «| 1/2 + /2 lf 1/2 < y < i 

Then if y ^ y, the following form of the Newton iteration scheme 
is used until y n+1 * y n : 

y n+ i - y n + !/ 2 [y/y n - y J • 

Finally, x « y • 2"" q . 

Accuracy: Let £(a) «= x - y/M be the absolute error. Then 
£ (a) « or 2""^^. Observe that x has approximately 
q more significant binary digits than a. 

Timing: Let T(a) denote the time in ms required to evaluate 

v/Ta|. Then .3 ms. < T(a) < 14 ms. for every admiss- 
able a. In particular, we list the following 
extreme cases : 



1 J253E replaces J171E 
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T(0) & .3 ma. 

T(l-2~ 39 ) = 1.23 ms, 

T(2 ) « 6 ms. (requires the maximum number (3) 
of iteration cycles) . 

T(2"39) ♦.• ^jj. ms (requires the maximum number (3) of 

iteration cycles and 19 normalization cycles).; 
Region A (erasable) - 3 words, A - A 2 
Symbolic Code: 23 words 
Program available as J253E. 



John I. Derr 



J25*ffi P th ROOT, 1<P<39 (Newton's Method with Sophisticated 

FIRST GUESS). 

J25^E will evaluate the non-negative solution of the equation 

x P = |aj, i.e. x - VN> when \ & \< 1 ' If a e5 " 1 > x is 3et e< l ual 
to -1. 

J2$h is entered by basic link with a in the MQ. When J25^ links 
back to the main program x will be in the Accumulator . 
Calling Sequence : 

a 020 a 010 p (Link to J25^E) 

a+1 P 

a+2 Control returns here with -1 in Accumulator if a » -1 . 
a+3 Control returns here with x in Accumulator if |a|<l. 
Description of the Method : 

(i) If a » Oj proceed to step (xi) . 

(ii) If a ■ -1, control returns to a 4- 2 with -1 in Accumulator, 
(ill) Normalize a so that 2~ P <a«2 Pq <l. Let y = a-2 Pq . 

(iv) Set x «'I=itJL if -ii <y<l 
u . r 2 r -2 

v ztr 2-2 

(v) If XQ<y, proceed to step (x) . 

(vi) Comp P(Ax) 



/ n n 



n 
(vii) If P(Ax) >0, proceed to step (x) . 



n 



(viii) Replace x n by x n + (Ax) n . 
(ix) If (Ax) n + C < 0, repeat step (vi) (0<C<2~ 20 ) . 
(x) Place x - x n -2" q in Accumulator. 
(xi) Return to a+3. 



J254E 
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Accuracy ; 

x»2 q has about as many correct significant bits as does y. 
x has approximately (P-l)q more significant bits than a. 
The maximum error < incurred in steps (viii) and (x) satisfies 
'<2 J . By rounding the number residing in the combined 

Accumulator and MQ upon return to a+3 the user can reduce « 

-4o 
so that £<2 . 

Timing : 

Let f(y) denote x n -y ' . For fixed P max e (y) occurs when 

-P 
2 ^<y<l 

P-l P-l 

y ^ -T5 — • For y = —p — , the time required to compute 

2-2 2 r -2 

x varies roughly as the square of P since the number of 

iterations as well as the time per iteration varies approxi- 



,-Pi 



,-39. 



mately as P. For all P t(2~ c ) - 4(1-2"°*) « 0. On 

[2" P , l] , .-(y) satisfies 0<t{y)<t(¥zL-) and is cusplike in 

2-2 

p 

appearance with a sharp peak at (P-l)/(2 -2) . 



p 

2 


(P-l)/(2 P -2) - y 


x - y 1 /* 
x y 


# iterations 


.500 


.043 


4 


3 


.333 


.084 


4 


4 


.214 


.123 


5 


5 


.133 


....158 

.217 


5 


7 


.048 


7 


10 


.0088 


.277 


8 


15 


.00043 


.337 


11 


20 


.000018 


• 371 


14 


25 


.00000072 


.392 


18 


30 


.000000027 


.407 


21 


. 35_ 
38 


.00000000099 
.00000000013 


.418 


26 


.424 


26 



Region A (eraseable) - 7 words, AO 
Symbolic Code: 44 words 

Program available as J254E. 
John Derr 
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J255 ~ CAT READ ROUTINE . 12-5-57 

Calling Sequence : 

LOC OP ' ADDR OP ADDR 
a-k SEL or 1 

* 

a RA a TRL B 
a+1 Control Returns 
The CAT read routine will do one of two things: either read 
a card image undisturbed into Region B (see below) without using 
the CAT read compiler or, having compiled the CAT read routine, 
it will read and convert to integers scaled 2 JJ7 the fields defined 
in the CAT read compiler calling sequence and store them in Region 
A as follows : 

Field 1 -> A 

« • 

Field n -> A n-1 
The retained columns of the card image are 3tored in Region B 
as follows : 

B 1 C 1 _ 2|0 12 's row 
B 2 C 1-lK) 11' s row 

B*12 C 1 _ i}Q 9's row 
B 13 C 41-80 12 ' s row 

■ * 

B 2 * c 4i-80 9 ' s row 
Storage Requirements: 

Reg A, AO - A25 (26 words) 
Reg B, Bl - B24 (24 words) 
Read Routine - CO - C130 (131 words) 
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Timing: 

5.6 ras. are used before first copy is given and 0.32 ms. 
are used after the twelfth copy. 



J256 - CAT READ COMPILER 12-5-57 

Calling Sequence : 

LOC OP ADDR OP ADDR 

a RA a TRL p 
a+1 P . S 

a+2 < "l > 

a+ 3 < m r — > 

• • • 

• • • 

a+n+3 100 P n L n 
a+n+4 Control Returns here 
Where: P is the origin of the CAT Read Routine; 
S is the sign convention indicator, 
S = 0, signs are ignored; 
S = 1, each negative field bears an 11 overpunch 

in its high order position; 
S = 2, each negative field bears an 11 overpunch 
in its units position; 
M L is a 40 bit mask with l's indicating columns in C,^q 
which are to be retained in the image, O's indicating 
columns to be deleted. One need not save fields or 
columns being converted by the CAT read routine, the 
masks are independent of this process; 
M R is the same as M. except for c i±i_qq> 
F^ is the first column of the i— field; 

L ± is the last column of the l~ field (I^-F^ 8, F ±+1 > L ± ) 
n is the number of fields defined (l < n < 12) 
Note that the left operation of the n— field definition 
contains the termination signal 100. 
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The CAT read compiler does' the following things. 

1) Compiles the conversion portion of the CAT read routine 

to read and convert fields to binary integers (scaled 2"^) 
complying with the n field definitions in the calling 
sequence . 

2) Compiles the sign detection portion of the CAT read routine 
according to the sign convention (S) specified and the 
field definitions. 

3) Generates a decimal input table beginning at location 0000 
of length 2 where k is the length of the largest field 
defined . 

Some general information: 

1) During number conversion overpunched 12' s are ignored. 

2) Blanks and zeros are interchangeable in numeric fields. 

3) Multiple numeric punches (e.g., decimal point «= 12, 3, 8) 
result in the sum of the decimal digits (e.g., eleven). 

4) It is impossible to convert numbers from the card without 
first compiling the CAT read routine. On the other hand 

the CAT read routine used without prior compilation will read 

and retain an 80 column image in Bl thru B24. 
Program Stop: 

c 9. l 2 4, largest field > 9 cols no recovery procedure. 
Storage Requirements : 

CAT read compiler, Reg C CO thru C209 (210 words) 

Reg A, AO (1 word) 

Reg B, not actually used, but must be defined before loading 
J256. 
Timing: 

5.4 + 4.9n + 7.1k ms. where n is the number of fields defined 

and k is the length of the longest field. 



J257 ~ GAT BCD PROM IMAGE 12-5-57 

Calling Sequence: 

LOC OP ADDR OP ADDR 

a RA a TRL 3 
a+1 F L 

a+2 Control Returns here 
Where P is the first column of the field and L the last 
column. 

This routine converts the defined field (P and L) to BCD 

-4 -39 
characters (see appendix) packed 6/word in bits 2 thru 2 , 

six bits per character and stores them beginning with A thru 

An. (The determination of n is left as an exercise for the 

student for all cases from one column fields thru 80 column fields^ 

Space Required: 

CO thru C127 (128 words) 

AO thru A15 (16 words) 

Bl thru B24 (24 words - the image) 

Timing : 

Slow! 



Appendix to CAT -BCD from Image 

The Hollerith characters will have the following binary 
representations in the CAT system: 



Hollerith 


BCD 


Blank 


00 





60 


1 


01 


2 


02 


3 


03 


4 


04 


5 


05 


6 


06 


7 


07 


8 


10 


9 


11 


A 


21 


B 


22 


C 


23 


D 


24 


E 


25 


F 


26 


G 


27 


H 


30 


I 


31 


J 


4i 


K 


42 


L 


43 


M 


44 


N 


45 





46 



Hollerith 


BCD 


F 


47 


Q 


50 


R 


51 


S 


62 


T 


63 


U 


64 


V 


65 


w 


66 


X 


67 


Y 


70 




71 


= 


13 


+ 


20 


« 


33 


) 


34 


"(11) 


40 


I 


53 


* 


54 


/ 


61 


) 


73 


( 


74 


-(8,4) 


14 



J258 - CAT OUTPUT ROUTINE 12-5-57 

Calling Sequence: 



LOC 


OP 


ADDR 


OP 


ADDR 


a 


RA 


a 




TRL 


3 


a+1 




N 








a+2 

• 
• 
• 




P l 

• 
• 
* 




T l 

« 
* 
• 


L l 

• 
« 

• 


a+n+1 


100 


P n 




T 
n 


L n 


a+n+2 


Control 


Returns 


here 



Where: N is the origin of the block where words to he converted 
to the image are stored 

F ± , the first column of the i— field 

th 
L., the last column of the i — field. 

T. , the type of information in the i — word of block N. 

T can have the following values and corresponding meanings : 

T = or blank = Error (see Error stop) 

T » 1, Integer, scaled 2 ^ 

1-2, Fraction, scale 2° (-1 < y. < l) 

T = 3, BCD packed 6/word (2" thru 2~ 3 ^, 

6 bits/character) 

This routine will convert and store in the Image the following 

types of information: 

1) Integers scaled 2 -^ 

2) Fractions scaled 2° (-1 <V< l) 

3) BCD characters packed 6/word. 

There is no limit to the number of fields defined (except of 
course the 80 cols, of the Image) nor to the length of a field 
(except BCD fields where L ± - F^ < 5) . 
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Integers will be placed In the image with leading zeros 
eliminated. 

Fractions villi be placed in the image truncated; any rounding 
should be done prior to storing in block N. 

Negative numbers will have an 11 punch placed over the last 
column of the defined field. 
Program stop: 

C122 - T. = 0, no recovery procedure 
Storage Requirements: 

CO - C143 (l44 words) 
Bl - B24 (24 words - the image) 
Timing : 

A rough estimate is about 2 ms per character stored 
in the image. 



J259 ~ CAT ALPHANUMERIC PRINT 12-5-57 

Calling Sequence : 

LOC OP ADDR OP * ADDR 

a RA a TRL £ 

ort-1 Control Returns 
The CAT print routine will print the prepared card image (via 
CAT output or otherwise) into either the left or right 80 columns 
of the ANelex 56-120 printer. The select and space orders must be 
given before entering this routine. 

Overpunched signs (such as produced by the CAT output routine) 
will appear as alphabetic characters, therefore, special care must 
be taken with negative numbers when placing them in the image. 
Space Required: 

CO - C143 (1H words) 
AO - A104 (105 words) 
Bl - B24 (24 words - the image) 
Timing: 

Slow 



NOTE 



:- An 8-4 combination in the image will print as < Instead of — . 



J260 - CAT DECIMAL PRINT 12-5-57 

Calling sequence: 
LOC OP ADDR OP ADDR 

a RA a TRL 

a+1 Control Returns 

The CAT decimal print routine will print a CAT card image 
with numeric information only. The following exceptions are 
included in the routine; 11 bits or punches are printed as minus 
signs and 12 bits or punches are printed as periods. 

In this routine overpunched signs will cause overprinting, 
thyratron hangup or both, therefore negative numbers require special 
handling before using the CAT Output Routine to prepare an image. 

The proper select and space instructions must be given before 
entering this routine 
Space Required: 

CO - Cll (12 words) 
Bl - B2^ (24 words - the image) 
Timing: 

The routine uses <•— .25 ms before the first copy order 

is given and exits ^ .06 ms after the 12th copy is given. 



J261 - CAT PUNCH 12-5-57 

Calling Sequence : 
LOC OP ADDR OP ADDR 

a RA a TRL 
a+1 Control Returns 

This routine will punch the stored image 80-80. The proper 
select order must be given before entering this routine. Echo- 
checking is impossible using this routine since control is not 
returned to the main program between copies. 
Time Used : 

Before 9's copy — - 0.4ms. 
After 12 's copy ,-w 0.2ms. 
Space Required: 

C0-C13 (14 words) 

B1-B24 (24 words - the image) 



J262 - CAT MOVE IMAGE 12-5-57 

Calling Sequence: 

LOC OP ADDR OP ADDR 

a RA a TRL p 
o.+l T . P 

a+2 Control Returns 
Where T Is the origin of the block the image is to be moved 
to, and P the origin it is to be moved from. Either T or P (not 
both) must be equal to zero; if T = 0, the routine interprets this 
to mean the image is to be moved from storage to the original 
residence (Reg. B) of the image, and if P = 0, the image is to be 
moved from Reg. B to some other space specified by T. 
Space Required: 

CO thru C30 (31 words) 
Bl thru B24 (2k words - the image) 
Time Required: 
9.6 ms . 



J263 - CAT SELECTIVELY CLEAR IMAGE 12-5-57 

Calling Sequence: 

LOC OP ADDR OP ADDR 

« HA a TRL a 

a+1 Left Mask 
a+2 Right Mask 
a+3 Control Returns 
This routine will clear those columns designated by zeros 
in the left and right mask for C^ and C^^ respectively 
and retain information in those columns designated by l's. 
Space Required: 

CO - C16 (17 words) 
Bl - B24 (24 words - the image) 
Time Required: 
9.2 ms. 



J264AJ2 AUTOMATIC^LEAST SQUARES POLYNOMIAL APPROXIMATION - 

J264 is an automatic version of JI78. The user needs only 
to insert the current version of the Floating-Point System pre- 
ceding the last card of J264, to record the necessary input data 
in punched cards, place these cards immediately behind J264, and 
press the LOAD button. The coefficients (a^of the approximating 
polynomial M 

f (x) ~ V" a^ 1 
i=CT 

will be computed and printed for each header card. 
Input Form 

Information should be punched in the Floating Point Data 
Form as follows: 
Header card for a problem 
pos (l) s a if data' triplets are to be printed 

[^ if data triplets are not to be printed 
1SX? M - degree of polynomial f (x) 

MANTISSA ID (any decimal information) 
pos (2) s fTif data cards follow .. 

[- if no data cards follow 
EXP Blank 
MANTISSA N » number of points 
P° a (3) S Blank (or +) 

EXP fOO if (x i ,y i ,r];) is to be printed 

101 if (x^y^y^ is to be printed 

MANTISSA 

Positions (4), (5), and (6) of the header card are not inter- 
preted by J264A. 



2 J264A is J212A modified for the new JOHNNIAC printer. 
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(x^y^Data Cards for a problem 

The number pairs (x jL ,y 1 ) must be punched in consecutive 
three-position blocks beginning with the first card following 
the header card. 

(D < 2 > (3) (4) (5) (6) 

lst0ard x i ■*! — *> y 2 



last card (N even) Xj. , y 

( N odd ) * N y N 



*n y N ™ + 



Further, there must be an end of file mark (12 punch) in column 

8o of the last data card. 

Cards for a sequence of problems 

There is a one-to-one correspondence between header cards 
and problems. A sequence of problems can be solved by placing 
the associated header cards together with the data cards 
following (if any) in sequential order behind J264. if the 
entire deck of input cards is followed by two blank cards, the 
console will show "READER" following the completion of the last 
problem. 

Output Form 

The page will be ejected prior to the beginning of each 
problem. The numbers printed will be in the external floating 
point form. The print format is that described for the 017 
(PNT) order in the Floating-point write-up. 
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Prlntlng for a problem 

A B C 

S EXP MAN S EXP MAN j> EXP MAN 

Information - M ID -00 N - v /l yo 
In header card 

Space . 

Coefficients a Q a, a 2 



Space 

If the number triplets are to be printed, they are printed 
one triplet per line in the natural order. 

X l y l r lfl*) 

c 2 y 2 r 2 f 2 # ) 

t \ • • • / 



x. 



X N y N 



*N ( y N*j' 



Notes 



(1) Prior to entry into J178, the set of (x.^ is replaced by 

( x i * m ) 



the set of {x, - m \ where 

' N 



m 



£ H r M - 



Upon exit from JI78, J194 is used to compute the coeffi- 
cients fa . \ . 
(2) 1 < M < 5 and M+l < N < 120 1 must hold. 



1 The upper bound of 120 on N was artificially imposed. 
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(3) A check sum 13X halt at (00l4) Q indicates that J26^'has 

probably been loaded Incorrectly under the control of J180A. 
The entire loading process should be restarted, 

(h) A 13X halt will occur at (2^34)g if the computational 

checking criteria is not met in any row during the forward 
solution in JI96. The calculation will continue if the 
GO button is pressed. This halt can occur due to the loss 
of significant digits in the matrix solution. 

(5) A 13X halt will occur at (2533) Q if the computational 
checking criteria is not met in any row during the back 
solution. The calculation will continue If the 00 button 
Is pressed. This halt can occur due to the Iosb of sig- 
nificant digits in the matrix solution. 

(6) A 13X halt will occur at (2357) 8 if det T » 0. If the 

GO button is pressed, then J264 will exit JI96 and JI78. 

If printing occurs upon completion of this problem, the 

results will be Incorrect. J26h will continue ahead' to the 

next problem if there is one. 
Accuracy 

Using x ± » 0(.05)l and the exact corresponding values of 
y ± obtained from a table of Legendre polynomials of degrees 
M « 2, 3, k, 5 the number of correct significant digits obtained 
in the computed coefficients was as follows: 



JL J 04A 
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21! It ^ ? islts M= 3 9 digits 
M-4 8(-) digits M =5 7 digits 

Timing 

The Legendre polynomials of degree one through five 
were used as test problems with 21 points, i.e., M-l, 2, 3, 4, 
and 5 and N=21 . The following times (which do not include 
input-output times) were recorded while operating in the SD mode: 

K lit Sec ' M=2 7 sec. 

M=3 10 sec. m=4 14 sec. 

M=5 18 3ec. 
Program available as J264A. 
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J265B-E ADDRESSABLE DECIMAL INPUT 

J265 will read and convert decimal numbers, one per card, 
into H.S.S. at the designated word relative to an origin specif led 
in the calling sequence. 
Calling Sequence: 
LOC OP ADDR OP ADDR 

a RA a TRL 
a+1 P R 
a+2 End of file return 

Where R is the origin relative to which input numbers are 
addressed, and F, the feed designation; F-0, primary feed; F«l, 
secondary feed. 
Card Format : 

C, - sign of address 
Coj, - relative address 
Cg - 3lgn of number 

C 7-l8 " number (including decimal point) 
C 20-21 " b_tne binary scaling at which the number 
is to be stored in H.S.S. (0 < b < 40) 

c 80 " End of file ( 12 "P unch - see below) 
Signs are denoted as follows, minus signs are 11-punches, plus 

signs, 12-punches or blank. Zeros and blanks are Interchangeable 

in all fields . 

In the number field, the integral and fractional parts of the 

numbers are separated by a decimal point. The decimal point 

may be left out for integers if the units digit is placed in C l8 ; 

in this case 12 digit Integers are input modulo 5^9,755,813,888 

(2 39 ) • 



J263B-E 
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- b is defined as the number of binary digits between the 
sign bit (2°) and the binary point in the word. For b»0, the 
number range Is -1 < x < 1. All integers are converted exactly; 
fractions are rounded such that the error in representation is 
not greater than 2~ , where k » 40-b. 

End of file is denoted by a 12 punch in Cg of a separate 
card, it is read but the information on the card is not stored 

in H.S.S. C 22-7Q of " a "^ cards are not read. 
Timing: 

Reader is run at full speed for each file (240 cards/min.) 
Storage : 

CO thru C120 (121 words) 

AO thru A19 (20 words) 
Error Stops: 

C82 - HTL C82 : b is too small, no recovery procedure. 



M. I. Bernstein 
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J266B-E 120 COLUMN VARIABLE FORMAT DECIMAL PRINT 

J266 will print up to 120 characters on a line in the format 
specified in the calling sequence. 



Calling Sequence 


H> * 






LOC 


OP 


ADDR 


OP 


ADDR 


a 


RA 


a 


TRL 


P 


a+1 




L i 




B l 


a+2 

« 




T i 




h 


a+2n-l 




L n 




B n 


a+2n 


100 


T n 




N n 


a+2n+l 


Control Returns 


here 



Where L. is the location of the ith specified word; 

B, is the binary scaling of the ith word (0 < B jL < 39); 
T. is the column in which the decimal point of the 1th 
word is to appear (l < T ± < 120) ; T 1+1 need not be 
greater than T,; 
N. is the number of digits to be printed to the right of 
the decimal point of ith word (0 < N ± < 10). 
Note that the left operation of a+2n contains the termination 
signal (100) for the calling sequence. 

All numbers are rounded by adding .5 x 10~ n prior to printing. 
When N»0, the decimal point is not printed. 
All leading zeros are suppressed with the exception that at 
least one digit is printed to the left of the decimal point, even 
when B»0. 

Minus signs are print ed to the left of the highest order digit 
printed, plus signs are not printed. 

No provision is made for checking to 3ee if an overlap of any 
two adjacent numbers has occured; the programmer must provide ample 
space to prevent this; it can cause the printer to hang up or over- 



1-8-58 

-2- 

printing, or erroneous printing. 

All selects and spaces are given in the routine. 
Timing : 

The maximum print speed of this routine is 400 lines/min, 
Space Required: 

CO - CI87 (188 words) 

AO - A35 (36 words) 



M. I. Bernstein 
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J268E* ZEROS OP A POLYNOMIAL WITH COMPLEX COEFFICIENTS — 

FLOATING POINT SYSTEM 

J268 will evaluate all of the roots of an n degree 
polynomial equation of the form 

y C ± Z 1 « 0, 



where C, is a complex number for i «• 0, . .., n and n < 50. 
Each root is computed as a complex number and, furthermore, the 
norm of the remainder obtained by dividing the reduced poly- 
nomial by the computed zero is supplied for each zero evaluated. 
J268 must be used in conjunction with the Floating; Point 
Interpretive System. J268 makes references to the interpreter 
(J240E or J239F) as region F. 

J268 ia entered by basic linkage. Before the calling 
sequence is executed, however, the coefficients of the given 
polynomial must be in consecutive H. S. S. locations as follows: 

R 

C " real component of C in floating point internal form 
C n J - imaginary " " " " 

C » real component of C in floating point Internal form 
C I - imaginary " " " " 

Now if C n « 0, let N be such that C N / and C N+1 - C N+2 . . . 

» C m o. 
n 

Calling Sequence : 

a 020 $ 010 # Link to J268 

a+1 000 L(C n R ) n L(N) 

a+2 Control returns here 

" Jgb8 is JIbV a s modified for the revised JOHNNIAC FLOATING POINT 
SYSTEM. 



Let ttj be the j th root of f (Z) « 



N 




C ± Z = 0, 
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Upon execu- 



tion of the basic link, J268 will proceed to find the zeros 
( n i* "" *V of the reduced polynomials g(Z) of f(z), one at 
a time, except in the case when H is a zero of K th order mul- 
tiplicity. (In the latter event a is evaluated only one time, 
but it is counted as K roots with respect to the output of J268) 
The roots a y together with Igfflj ) R j+|g(n j ) 1 1 , are stored in 
consecutive H.S.S. locations beginning with L(N)+1 and ending 
with L(N)+3N as follows: 



L(N)+1 
L(N)+4 



a^ 



a, 



R 



n, 



Qr 



f ("l) R | + | f (" X ) 1 



S(^ )« + 



s(«o)- 



L(N)+3N-2 



a 



R 



a, 



!s(S) R+ «(«n) x 



N is a fixed-ptfint integer. All other numbers are in the 
floating-point internal form. 



Description of the Method 

The basic process used is Newton's method, i.e. if z„ is the n th 
approximation to a root fi, then 



n 



Z n+1 " z n ~ 



g (z n ) 



s»(z n ) 



The criterion for convergence of Z n to a requires that 



Z n+1 " z n 



AZ 



n 



s'(z n ) 



satisfy the inequalities 



* z n < 



n 



■10~' and 



AZ 



n 



< 



R 



n 



•10 



-7 



Hence 
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g(ft)*]+|g(n) X 



yields an Independent check on the accuracy of the calculation of Q. 

Note that this latter check involves an absolute error with 

respect to the polynomial, whereas the convergence criterion is 

based on a relative error with respect to Z . 

n 

In the case of a repeated root fl of degree K, K > 1, Newton's 

method is rendered inadequate on two accounts. The convergence 

becomes linear rather than quadratic and the number of good 

by a factor of at least two since 
significant digits in Z n is reduced/ g'(Z n ) -^ aa Z n -> fi. As 

a result, g(Z n )/g'(Z n ) becomes the ratio of two relatively small 

numbers. Here, the basic process is modified as follows: Let 



L be the first Integer, L>1, such that g L+i (Z ) > Q-e (Here 
we will omit the details concerning the explicit Identity of 

Q and € . Let it suffice to say that the test is relative versus 

L+l 
absolute and that g (Z ) is bounded away from zero.) Now 



J n+1 



Z - 
n 



(K-L) g L (Z n ) 



and AZ 



n 



(K-L) g L (Z n ) 
IL+I 



g 



< Z n> 



Using this new form of AZ n the test for convergence is the same 

as described in the preceding paragraph. Also the modified process 

is still at least a second order process. 

Convergen ce and the Choice of Z 

——————— — — — o 

When the computation for any root Cl begins Z is computed 
either as a function of C or as the conjugate of the immediately 



*The second inequality is designed to cover the situation 
where the imaginary component of ft can be much larger than the 
real component of fl and the real component is the only one de- 
sired. Problems exist in the field of dynamic analysis, for 
example, where this type of convergence is desired. 
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preceding root. The iteration will then proceed to compute Z n+1 

as indicated above until either Z n+1 converges to ft or n - 13. 

In the former case (the ordinary case), we are through. In the 

latter event a new Z is computed as a different function of C Q . 

c 

This time n is allowed to reach 13 + 10 - 23 before a new Z Q is 

th 
computed. This process can be repeated until the 7 value of 

Z has been computed. If convergence has not been achieved when 
o 

n _ 13 + 6-10 - 73, then the program will halt. 

In order to give the user some insight into the reasons for 
selecting such an elaborate system for computing Z Q , we might 
outline some of the pathological cases which might arise and do 
not fit into the standard convergence pattern. We first dis- 
tinguish two fundamentally different causes for abnormal conver- 
gence . 

I. Newton's method is not, precisely speaking, an "error- 
squaring" process. In fact, it need not even be convergent 
at all. Basically (AZ) n+1 = q- (AZ)£. Convergence is 
guaranteed if |q- (AZ) n l<l>' but the rate of convergence still 
depends directly on q. If |q| » 1, the convergence might 

be very slow. As an example of non-convergence consider 

the case where g'(Zn) < Q]/^ and g(Z n ) > Q. 2 ' e 2 > x ' e ' 

Z is very near a root of g'(z) ■ which is not a root of 

g(Z) - 0. 

II. Cycling can occur in this method due to two diverse causes. 

(By cycling we mean that a finite sequence (Z Q , Z , ..., 

Z ) of root approximation values are taken on in a cyclic 

a m 
manner . ) 
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A. The propagated error which accumulates in the calcu- 
lation of g(Z n ) and g'(Z n ) is so great that the con- 
vergence criterion cannot be met. This sort of cycling 
becomes more probable as the degree of N of g(Z) increases. 

B. A geometrical symmetry exists among the roots of g(Z) 
relative to the approximation value Z n . 

Notes 

(1) A Halt (130 operation) will occur if the process does not 
converge. If the 00 button is pressed, Z n+1 will be placed 
in the root output storage and the program will proceed to 
evaluate the roots of the reduced polynomial. 

(2) The roots are usually in error only in the low order two 
digits of the mantissa. The accuracy of a root varies, 
naturally, with the degree of the original polynomial and 
the position of the root in the sequence (ft 1 , . .., fl N ) . 

(3) The evaluation of the n th roots of unity is probably more 
difficult than the "average" polynomial occurring in 
practice due to the geometrical symmetry of the roots. The 
following approximate times in seconds were recorded while 
operating in the SD Mode: 

X 3 - 1 17 

X 5 - 1 23 

X 8 - 1 !22 

X? - 1 59 

X 16 - l 1*65 

X 17 - 1 329 

(4) J268E requires only the interpreter (J2*K)E) of the JOHNNIAC 
Floating-Point System. The first word of the interpreter 
(J240E000 or 55OO3) must coincide with P000. Region P must be 
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asslgned on absolute location prior to the loading of J268. 

Reg. A 332 words (A - A 331)* 

Symbolic Code: ^22.,^ » 646 Q words 

10 o 

Program available as J268E. 



John I. Derr 



"*" * A132-A331 are available to the user for storing coefficients 

for input to J268, i.e., it is permissible to have L(C ) « A132. 

However, these coefficients will not be available upon re-entry to the 
main program. 



9-11-58 
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COMPLEX MULTIPLY — FLOATING POINT SYSTEM 



J269 is a closed sub-routine which will multiply two 
complex floating-point numbers a and b. The arguments must 
be in region A prior to the execution of the basic link. 
The resulting complex floating-point product o » a • b will 
be found in region A when J269 links back to the main pro- 
gram. The arguments a and b will not be destroyed by J269- 
J269 makes references to the interpreter (J240E or J239P) as 
region P. 

Calling Sequence 

a 020 $ 010 # (Link to J269) 
a + 1 Control returns here. 

The region A locations of a, b, and c are as follows: 

A oontains a «■ real component of a in fl. pt. internal form. 
.1 



a~ « imaginary 

b R » real 

b - imaginary 

c «■ real 

o ■ imaginary 



a 
b 
b 
c 
o 



J269E requires only the interpreter (J240E) of the Ploating 
Point System The first word of the interpreter (J240E000 or 
5500 8 ) must coincide with P000. Region P must be assigned an 
absolute location prior to the loading of J268. 

Region A (erasable) 6 words A - A 5 

Symbolic Code 10 10 - 12g words 

Program available as: J269E 

John I. Derr 

• J269 is J169 as modified for the revised JOHNNIAC Ploating 
Point System. 
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COMPLEX DIVIDE — FLOATING POINT SYSTEM 



J270E is a closed sub-routine which will obtain the 
complex floating-point quotient q of two complex floating- 
point numbers a and b. The dividend a and the divisor 
b must be in region A prior to the execution of the basic 
link to J270. The quotient q and the square of the norm of 
b Mb| 2 - (b R ) 2 + (b 1 ) 2 J will be found in region A when J270 
links back to the main program provided that b / 0. If b « 0, 
q will not be computed. The arguments a and b will not be 
destroyed by J270. J270 makes references to the interpreter 
(J240E or J239P) as region P. 
Calling Sequence ; 

a 020 $ 010 #0 (Link to J270) 
a+1 Control returns here if b / 
a+2 Control returns here if b ■ 0. 

The region A locations of a, b, q # and |b| 2 are as follows: 



A contains a" « real component of 

Aj " a 1 «• imaginary " " 

R 
A~ " b - real " " 



Jt 



|b| 



imaginary " " 

real 

imaginary " " 

norm squared of b. 



a 
a 
b 
b 
Q 

q 



in floating-pt. internal form 



J270E requires only the interpreter (J240E) of the Floating Point 

System. The first word of the interpreter (J240E000 or J55OO3) must 

coincide with F000. 

Region A (erasable): 7 words A - A 6 
Symbolic Code 17^0 • 2I3 words 

Program available as: J170E T . T „_ 

John I. Derr 
' * J270 is J170 as modified for the revised JOHNNIAC Floating Point 
System. 
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J271E* SCALAR PRODUCT OP TWO VECTORS — FLOATING POINT SYSTEM 

J271 computes the usual Inner product (x, y) w.r.t. the 

standard orthonormal basis over a Euclidean Vector Space, i.e. 

n 
(x,y) - 2~ x ± y ± . | 

Denote (x, y) by Y . All of the numbers jx^ and faA must be 
in the packed internal form recognized by the Floating-Point 
Interpretive System. Upon exit from J271 o 7 will be in the same 
form. J271 makes references to the interpreter (J240E or J239F) 
as region F. 

The elements (x^l of the vector x « (x^ ..., x^) must be 

placed in H.S.S. as follows: 

L(x 1 ), L(x 2 ) » L(x 1 ) + A x , ..., L(x n ) « L(x 1 ) + (n-l) A x , 

where A x is an integer and |A X I < (377)3 - 2 55 10 « 
, A similar statement holds for y. 
Calling sequence: 

a 020. a 010 (Link to ;J27l) 

a+2 'fy^JJ'.'n lA y l L(y x ) 
a+3 Control returns here 



Here x is defined by 

|A X | if x * " 
1 -|a jc | if x - 1 

and a similar statement holds for y • 

» J271 is J172 as modified /for the revised JOHNNIAC Floating 
Point System. •■'" 



—■•■»■*.. Kwvr*-n»9*i- 
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J271 requires only the Interpreter (J240E) of the Floating 
Point System. The first word of the interpreter (J2 2 fOEOOO or 
5500g) must coincide with P000. 

Region A (erasable): 6 words A - A 5 
Symbolic Code: 31 words 
Program available as: J271E 



John I, Derr 



J272E* SUM OP THE COMPONENTS OP A VECTOR — PLOATINO POINT SYSTEM 



The function of J272 depends upon the contents of the left 
operation field of its 16 th word which is 024 unless altered 
by the user. In particular, J272 computes 
n 



Y » n 



) x^ , if the field contains 024 

> |XjJ , if the field contains 026 

All of the numbers j x.^ I must be in the packed internal 
form recognized by the Ploating-Point interpretive System. Upon 
exit from J272 Twill be in the same form. J272 makes reference 
to the interpreter (J240E or J239P) as region P. 



The elements 1 x. ( of the vector x must be placed in 
H.S.S. as follows: 

L(x 1 ), L(x 2 ) » L(x x ) + A, . .., L(x n ) - L(x x ) + (n-l)A, where 
A is an integer and |a| _£ 377g « 2 55iq ♦ 

Calling Sequence : 

a 020 a 010 (Link to J272) 
a+1 TOO I'M |a| L^) 
a+2 000 n 000 0000 
a+3 Control returns here 

|a| if <r - 
A =A[L(x i )] - 

/-|a| if <r- i 



J272 is J173 as modified for the revised JOHNNIAC Ploating 
Point System. 
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J272 requires only the interpreter (J240E) of the Floating 
Point System. The first word of the interpreter (J240E000 or 
5500q) must coincide with P000. 
Region A (erasable) : k words AO - A3 
Symbolic Code: 23 words 
Program available as J173E. 
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J273E* LINEAR COMBINATION OP TWO VECTORS — FLOATING POINT SYSTEM 

J273 computes the linear combination z * x + y of the 
vectors x and y over a Euclidean Vector Space. Here x, y, 
and z are denoted by the n-tuples (x,, ..., x ), (y,, ..., y ), 
and (z 1# ..., z n ). 3 is a scalar. All of the numbers \x*] » 
J yA , and p must be in the packed internal form recognized by 
the Floating-Point Interpretive System. Upon exit from J273, 
the numbers jz. \ will be in the same form. J273 makes reference 
to the interpreter (J240E or J239F) as region F. 

The elements (x^ of the vector x must be placed in 
H.S.'S". as follows: 

L^), L(x 2 ) - L(x x ) + A x , ..., L(x n ) m Lfxj) + (n-l) A x , 
where A x is an integer and |a x | £ 377q » 2 55 10 - Similar 
statements hold for y and z. 



(Link to J273) 



Sequence : 








a 020 


a 


010 





a+1 o- x 00 


1.(3) 


k x i 


L(x x ) 


a+2 <r y 00 


n 


'V 


L(y x ) 


a+3 a z 00 


0000 


i*,i 


L(z 1 ) 


a+4 Control returns here 





U x | if (T x «0 
A x = A[L(x ± )] 



-|a x | if or^i 



*J273 is J1&7 as modified for the revised JOHNNIAC Floating 
Point System. 
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Steps ct+2 and a+3 can be interpreted In an analogous manner. 

Two variations In the use of JI87 are permitted. Together 
with the most general form already described there are three 
mutually exclusive functions available: 

(i) p x + y, L (p), L (y,) must be non-zero. 

(ii) x + y, L (0) must be zero (blank), 
(ill) p x , L (p) must be non-zero and 

L (y) must be zero (blank) . 
Essentially, JI87 consists of three programs in one. The 
basic computational loop for each of the three functions described 
is optimal in the sense that the number of program steps 
is minimized subject to the condition that the smallest possible 
number of program steps shall be executed in the Floating-Point 
System. 

J273 requires only the interpreter (J240E) of the Floating Point 
System. The first word of the interpreter (J240E000 or 5500o) 
must coincide with F000. 
Region A (erasable): 12 words (AO - All) 
Symbolic Code: ' 65 words 
Program available as: JI87E. 
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J274E* POLYNOMIAL FUNCTION EVALUATION — FLOATING POINT SYSTEM 



For a given value of x, J274 will compute 



N 



P(x) * r~" ajX 1 , N > 1. 



J274 must be used in conjunction with the current version of 
the Floating Point System and x , p(x), and the coefficients 
&q, a 1 , . .., a N must be in the packed internal form. Further, 
the coefficients must be placed in H.S.S. locations as follows: 
L(a Q ), L(a 1 ) «* L(a Q ) + A, . .., L(a N ) » L(a Q ) + N«A, where A is 
an integer and |a| < (377)3 * ^ 2 ^1Q ' J2 7^ makes references 
to the interpreter (J240E or J239F) as region F. 
Calling Sequence : 

a 020 a 010 (Link to J27*0 

a+1 <r00 L(o N ) A N 

a+2 L(x) L[p(x)] 

a+3 Control returns here 



A = A[L( &1 )] 



Method : 



|a| if <r« 
-|A| if (T- 1 



p(x) = P N (x), where p N (x) is generated by recursively 
defining P^x) » a.^^ + a N x and Pj^fa) * a N-1-1 + xPj^x) for 
1-1, 2, ..., N-l. 



*J274 is J191 as modified for the revised JOHNNIAC Floating 
' Point System. 
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Timing : 

No absolute times have been recorded, but N floating- 
point additions and multiplications are performed. Hence, for 
sufficiently large N the time will vary directly as N. 
Note: J2jk requires only the interpreter (J240E) of the Ploating 
Point System. The first word of the interpreter (J240E000 or 
5500g) must coincide with P000. 
Region A (erasable) : 3 words AO - A2 
Symbolic code: 26 words 
Program available as: J191E 



John Derr 



J275E* ITERATED SYNTHETIC DIVISION - FLOATING POINT SYSTEM 

N , 
Given a polynomial f (x) - r~ a ± x , J275 will divide f (x) 

by x-c M times, where 1 < M ^ N. More precisely, define the 
quotient polynomials q ± (x) by recursion. Set q^x) «• f (x) and 
let qj(x) be defined by q^x) - (x-c) q^x) + q J _ 1 (c) for 
J»l, 2, . .., M. Now let 



N-M 



the set of N numbers i b.L where b. -, M 



<* M (x) * £Z <*j xJ define f«lj I • Then J194- computes 

q ± (c), i-0, 1, ..., M-l 

q i-M ' i " M * mi > '••* N 

All of the numbers /a^ , (bJ, c, f^i^ )) * and 
j^i-MJ are in th3 P a °ked internal form recognized by the current 
version of the floating point system. The ( a. ? and (b ± ? must 
be arranged in H.S.S. as follows: 

L(a ), L(& x ) m L(a Q ) + A & , ..., L(a N ) - L(a Q ) + N»A & . 

L(b Q ), L(b x ) » L(b Q ) + A b , ..., L(b N ) - L(b Q ) + N-^ . 

Here, A & and A^ are integers whose absolute values are bounded 
below (^OO)q '- (256) 10 . J275 makes references to the interpreter 
U240E or J239P) as region P. 
Calling Sequence ; 

a 020 a 010 p (Link to J275) 

a+1 ^00 N |Aj L(a ) 

o+ 2 (T b 00 M |A b l L(b Q ) 

oc+3 L(c) 

crt4 Control returns here 



J275 is J194 as modified for the revised JOHNNIAC Ploating 
Point System. 
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'l*bl 


if o" b « 




-Kl 


if <r b - i 


• 



\\\ if o- & - 

A a " j and A b - 

-|A a | if <r a « 1 



Notes ; 

(i) Making use of the general relationship fM( c ) - kl.q (c) 
for < k £ N, one can use J275 to compute the values 
of the derivatives of a polynomial f (x) evaluated at 
x « c. In particular, for k*0 J275 duplicates the 
function of J274. 

(ii) If M - N, then the j'bj computed by J275 also satisfy 
the equation 

(iii) The [& x ] are not destroyed by J275 if (l(& ± ) ] are 

disjoint from j L(b ± ) j . However, setting A & - A b and 
L(a ) - L(b Q ) is permissible if the ja ± J are expendable, 
(iv) J275 requires only the interpreter (J240E) of the Floating 
Point System. The first word of the interpreter (J240E000 
or 5500q) must coincide with P000. 
Timing ; 

2M(2N~M*1) pairs of floating-point add and multiply orders 
are performed for each entry. 

Region A (erasable): 7 words AO - A6 
Symbolic Code: 46 words 



John Derr 



J276E* MAXIMUM ELEMENT OP A VECTOR — FLOATING POINT SYSTEM 

J2J6 is a floating-point version of J174E. Let x » (x , ...,x ) 
be an n-tuple with real components. J276 will find the first 
element x k c[x^ such that IxJ > |ac ± | for i-1, ..., n . The 

element x k will be in A4 upon exit from J276. In addition, 
L(x k )»2" will be in the A upon exit from J276. 

The elements ^j of the vector x must be in the packed 
internal form recognized by the Floating Point system and must 

be placed in H.S.S. as follows: 

L(x x ), L(x 2 ) . L(x x ) + A, ..., L(x n ) - L(x x ) + (n-l)A, where 

A is an integer and |a| ^ 377 Q « 255 1Q . 

Calling Sequence : 

a 020 a 010 3 (Link to J276) 
a+1 o-OO n Ja| L(x x ) 
a+2 Control returns here 

f |a| if « 
A = A[L( Xi )J - J 

/-|A| if m 1 

Notes ; 

(1) By modifying the 18 th word of J276, J276 can produce 
the maximum or minimum of the f xj or fjx \] 

(2) J276 requires only the interpreter (J240E) of the 
Floating Point System. The first word of the interpreter 
(J240E000 or 5500 Q ) must coincide with F000. 



* 
Points stem ° V m0dified for the revla e d JOHNNIAC Floating 
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Reglon A (erasable) : 5 words (AO - A4) 
Symbolic Code: 25 words 



John Derr 
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J277H* SOLUTION OP A MATRIX EQUATION AX » B WHERE A IS n x n 
AND NON-SINOULAR -- FLOATING POINT SYSTEM 



A link to J277 will result in the solution of the k 
systems of n simultaneous linear equations 

a ij x /^ * b i (/) ' i • 1, 2, ..., n, 

in n unknowns for J~ 1, ..., k. If we define the matrices 
A, X, B oy 

'"11 -!»••■ *ln\ A{J| «x (8) - ^ AliJi » 1 W -»l W 

a / \ x^ 1 ) 
nl • ' " a nn/ \ x n ' " * 

then the two statements concerning the function of J277 are 
equivalent. J277 also computes the determinant of A which we 
denote as det A. 
Calling Sequence : 

a 020 a 010 p (Link to J277) 

a+1 k n A L ( a n) 

a+2 Control returns here if det A » 

a+3 Control returns here if det A / 
Before linking into J196 the user must place the elements 
a. ± j of A and b ± W of B into H.S.S. locations as follows: 

a ii a i2 ••• a m b i U) b i (2) — b i (k) 






a 21 a 22 

4 *„ 2 ... Sn b n W b (»>... fts C.O 



*n\ 



J277 is JI96 as modified for the revised JOHNNIAC Floating 
Point System. 
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Basically, these locations differ by A. More precisely, 
loc (a^ J+1 ) - loc (a^) + ,, j-l, 2, ..., n-1, 
loc {& ± ^ « loc (b^^) + 2A, i / 1, 

loc (b^ 1 ') - loc (bl ± ) + A, and 

loc (b i ^ 1 h » loc (b ± ^) + A, /-l, 2, ..., k-1. 

Upon exit from J 277 these same H.S.S. locations will contain 
a ll a 12 '•• a ln x l x l ••• x l c l 



a 21 a 22 



(1) „ (2) , (k) 



a nl a n2 ••• a nn x n *n ' ••• V" c n 

In addition, det A will be in A 19. All of the numbers 
referred to are in the packed internal form recognized by the 
Floating-Point Interpretive System. The quantities k, n, and A, 
in the Calling Sequence are positive integers with the obvious 
upper bounds (77)3* (7777)3, and (377)3* rea P ec tively. Clearly, 
these are not least upper bounds. 

The matrix a « (°jj) is fcne n x n matrix obtained from A 
by the forward solution part of the elimination process. The 

n x 1 matrices (x^', ^ 2 » •"•* x n ' are obtained * n the 
back solution part of the method. The n x 1 matrix (c 1 , c„, ...c ) 
should be ignored by the user. It functions only as a check on 
the computational accuracy of the forward and backward solutions. 
Description of the Method 

The basic method used is the Gauss elimination method. In 
the forward solution the matrix A is reduced to a triangular matrix 
T. The solution of Tx - Eb is equivalent to the solution of the 



original equation Ax « b, where E * ir B 1 and the E^ are 

elementary matrices, i.e. EjM results in performing elementary 

row operations on M. The back solution can be performed by a 

simple substitution usingthe equation Tx - Eb. 

The rule of formation of the sequence (E^ Eg, ...) is known 

as Crout's Method*. However, here the method is modified 

so as to permute the rows of the resulting matrix, if necessary, 

to use the element a, . - Max (kJ) as the a... pivot element 

i£j<n Ji 
for i - 1, 2, . .., n. 

The computation of the i th row of T is checked versus 

(i+l) 2 »10 according to the Grout criterion for checking. 

Similarly, the calculation of the i th row of X is checked versus 

(n+l) 2 »10~ 6 . This method of checking will probably suffice 

in most cases w. r. t. testing for machine malfunctions. 

Note that this check does not guarantee that the solution 

computed is "correct" in any normal sense, since the ultimate 

accuracy of the computed solution is limited by the inherent 

error of the original system of equations. An exact specification 

of bounds for inherent error is beyond the scope of J277. However, 

loss of significant digits due to ill -conditioning of the 

original matrix A can cause the checking criterion not to be 

satisfied. 

NOTES 

(i) J271-2, J175, J276 (or J17* in place of J276 if all 

calculations are performed in the N mode) and the interpreter 

(J240E or J239P) of the Floating Point System are slave routines 



*See Numerical Calculus, pp. 17-29, by W. E. Milne 
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w.r.t. J277 and therefore must be used in 
conjunction with J277. Further, J271-2, JI75, 
J276 (or J17^) and the interpreter have the origins 
WO, XO, ZO, YO, and FO respectively, w.r.t. J277. 
Hence, these regions must be assigned locations before 
J277 is loaded. 

(ii) A 13X halt will occur in the 120th word of J277 if the 
computational checking criterion is not met in any 
row during the forward solution.. The calculation 
will continue if the 00 button is pressed, 
(iii) A 13X halt will occur in the 183rd word of J277 if the 
computational checking criterion is not met in any 
row during the back solution. The calculation will 
continue if the 00 button is pressed. 

(iv) A 13X halt will occur in the 75th word of J277 if 

det A«0. Control will link back to the main program 
if the 00 button is pressed. 
(v) Clearly, the original matrices A and B are destroyed 
by J277. 

(vi) The relation 

n(n+k+l) < (4096-P) - 292 - 26 - M 
must always be satisfied when using J277, where F ■ the 
number of words used by the Floating-Point Interpretive 
System and M - the number of words in H.S.S. occupied 
by programs other than J271-2, JI75, J276 and the 
Floating-Point System. 
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In order to get some real -live numbers, suppose 
(4096 - P) - 2880, A m l, and M « 115. Then n(n+k+l) £ 2447 
must hold. If k*l, n < 48. If k*n, k*n < 34. 
Timing 

Since at the time of this writing no explicit times were 
known for the floating-point operations, it follows that no 
explicit timing estimates could be made for the general case. 
However, the following floating-point operation counts should 
yield a reasonable measure of how the time will vary as a function 
of n and k . 

Operation Counts for the Forward Solution 

(l) n(n+2k+l) 

3 2 
(+) and (x) \ + i^L. for each 

(approximate for large n or k) 
Operation Counts for the Backward Solution 

< + > and (x) n(n.lj(fcfl) for each 

J277 Storage (without slaves) 

Reg. A (erasable) 20 words (A 6 - A 25) 
Symbolic Code: 192 words 
Storage U sed by Slave Routines (interpreter excepted) 

Region A 6 words (A - A 5) (Note that the erasable 

storage used by J271-2, J175 and J276 (or J174) does 
not overlap that used by J277.) 
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Syrabolic Code; 100 words (or 98 words if J174 is used) 
Combined Storage Used (interpreter excepted) 

Reg. A 26 words (A - A 25) 

Symbolic Codei 292 words (or 290 words if JI74 is used) 
Lattice Diagram Describing Ma3ter-Slave Relations 



J271 



J272 



J276(J174) JI75 




Floating Point 
System 
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J278E* EVALUATION OP A ROOT OP A POLYNOMIAL WITH COMPLEX 
COEPPICIENTS — FLOATING POINT SYSTEM 



J278Eis a more flexible version of J268E. J278 will 
compute, by an iterative process, up to n roots of an n tn 
degree polynomial equation of the form 

n 



f ( z ) " EZ c i zi ■ 0* where G ± 



is a complex number for i»0, . .., n. Along with each root Si 
computed; the multiplicity k of ft , |g(fl)| and the new reduced 
polynomial g(z) are available to the user. The user may, for 
each root Si, constrain the convergence of the process by 
specifying an initial guess z Q and by modifying certain 
sensitive quantities. 

J278 must be used in conjunction with the current version 
of the Floating-Point System. J278 makes references to the 
interpreter (J240E or J239F) as region F . The main entry 
( polynomial entry ) is performed by basic linkage and results 
in normalizing the polynomial f(z) into monic form, i.e. 

e(z) " tz> a±zN ~ 1 ' where a ° ' x " 4 and ° N+1 " C ^ 2 " "• 

« C n « 0. In all succeeding re-entries ( root entries ), an attempt 

is made to compute a new root of the reduced polynomial. 

Calling Sequence for Polynomial Entry ; 

a 020 a 010 $ ( polynomial entry to 1st 

word of J2?8J 



™7JLi!„ a 2 lm Proved version of J210 as modified for the revised 
JOHNNIAC Floating Point System. 



n 
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a+1 aOO L(C n ) |a| 

a+2 Error return (Control returns here If 

N»0 for the polynomial 
entry or If the process 
does not converge for a 
root reentry.) 

o+3 First Root return (Control returns here 

following polynomial entry.) 

a+4 Intermediate root return (Control returns here 

following the evaluation 
of a root.) 

Before the polynomial entry to J278 is executed, the 
coefficients [c ± ] of f(z) must be stored in H.S.S. locations as 



if a - 1 ( Note fchafc M > 2 ) ' 



follows, where 

L(C n ) — C n » real component of C n in floating pt. Internal form 
L(C n )+l—- C n - imag. component of C n in floating pt. Internal form 



... 



L(c n )+n.A—C - real component of C Q in floating pt. internal form 
L(C n )+n«A+l— Cq 1 « imag. component of C Q in fl. pt. internal form 

The following locations contain the current values of 
quantities which are of Interest to the user and to J278: 

BOO - z ± - real component of the current approximation to jl .- 

BOi - z ± • imag. component of the current approximation to R . 

B02 - |g(J2)|, where ji is the last root evaluated. 

B03 - k ± « current estimate of multiplicity of z ± . 

B04 - N ■ degree of g(x) 

B05 - (n-N) * number of leading zero coefficients of f(z). 
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B10 + 6j (j«0, ...,N-l) - a 1+J » real comp. of the coefficient 

of z 11 " 1 "- 1 in g(z). 

Bll + 6j (j»0, . ..,N-l) - a^. 1 m imag. comp. of the coefficient 

of z N " 1 ~ J in g(z). 
J278E283 (*88) - 1(1-17 unless changed by user). The maximum 

number of iterations in the first cycle 

is I + N/2 (mod 4). 

J278E284 (*89) -C ■ maximum number of iteration cycles 

(C»7 unless changed by user) 

J278E285 (*96) - *U-10" 7 unless changed by user) 

J278E286 (*97) - r)(*|-lO~ 3 unless changed by user) 

J278E289 (*94) - 6 in floating-point (5-10" 2 unless changed by user) 

J278E290 (*95) - 6 in fixed point scaled 2° (6-1CT 2 unless changed 

by user) 

Root Entry ( Re-entry) > 

All root entries (re-entries) to J278 are made by 

transferring to J2781046. If the root return is made to the 

right of J278E046, then J278 will use the contents of BO and 

Bl for the initial guess, z Q , to Xi . Otherwise, J278 will set 
N [ N 

z * v ' a N' + i y I a N I • Prior to any root re-entry to J278, 
the user is free to alter z Q , I, C, e, f|, and 6 as he sees fit. 
Upon return of control to a+2, a+3, or a+k the user will 
probably want to utilize some of the quantities z ±t |g(^)|, k, N, 
n-N, and the \^» If control returns to the Intermediate 
root return, the user may assume that & - z ± , k ± - the multiplicity 
of Jiand N is the degree and the S aA are the coefficients of 
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the new reduced polynomial g(z) . It la important to observe 
that the user must program the decision to terminate the 
computation of roots of f(z). This can usually be done by 
testing N-0 for every intermediate root return if all of the 
roots of f(z) are desired. 

Description of the Method 

Set (^(z) » g(z) and let q«(z) be defined by 

q j-l( z ) " ( z - z i)<lj( z ) + q j-i( z i) for j-l,2, ...,N. Define 
£^ to be the smallest non-negative integer such that 

(1) l^ + i(*i)l > >]k^ +1 (0)| and 

(11) i»4-i (0) 1 £ Ji i% (o) 1 ' whenever 4 > ° • 

if such a number exists.* Otherwise, replace z, by z, + ^ 1 " 1 
and repeat the decision process until an jfi. satisfies (i) and (ii) 



for some z,. 



We next define k ± to be 1 or ^+x-l depending on whether 
\ is respectively zero or positive. To obtain x first compute 

! (^/g i ( 8l ) - g 1 /g * (z ± ) 



g 

X « 



provided the right hand side of the above equation exists. Then 

(1) Set x - J if x is well-defined and there exists an 

integer j, 2 < J < N-^+l, such that |x-j| < 6 



## 



# *ln J268E, -10** 2 . 

The 6 used here is 10" 1 in J268. 



J27&E 



(il) Set x « 2 otherwise (in this event k,«/+l). 

Finally, the basic iterative process consists of recursively 
computing z 1+1 from z ± by means of the relation 

z i+l - z i - (A*) ± , where (Az) 1 - 1 jV +1J *' • 

6 ^ (z ± ) 

The basic iterative process is modified * when jL*0 
and with x now defined by 

(^1 l 
X " (Ax) 1 ^-(ax) 1 * when 

there exists an Integer J, 2 ^ j ^ N, such that |x-j|< 6. If such 
ia the case set lt ± - j and k ± - J^ - j-i. With this modification 
multiple roots can be detected prematurely. 

Convergence and the Choices of z 

The criterion for convergence of z ± to Jl requires that 
|(Az) jL | < | ZjL |. 6-, i.e. that the relative error in il shall not ' 
exceed e . |g(^)| provides an independent check on the 
computation. Note though that J278 does not substitute Si back 
into the original polynomial f (z) . 

The system which J278 uses for starting the iterative 
process breaks down into € iteration cycles. The first iteration 
cycle allows a maximum of I+N/2 (mod 4) iterations and this 
maximum is increased by 4 for each succeeding iteration cycle. 



* 
In J268, this modification does hot exist. 
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On the first cycle z Q is chosen as described above. On 
successive cycles z Q is set equal to a complex number with 
modulus - ^/aJJ according to a fixed pattern, where a N is 

the constant coefficient of g(z). The set of values of z Q 
includes points in all four quadrants. 

Any cycle can be interrupted by convergence. If all C 
cycles are executed in their entirety, then the process has 
not converged and control will return to the Error return. 
NOTES 

(1) If f (z) has real coefficients , and if Jl is a proper 
complex root, then set z - II* (the conjugate of Si), provided 
ii* has not already been evaluated. 

(2) In general, do not set z Q « a real number unless only 
real roots are desired; 

(3) In general, e should not be less than 10~ 8 , since 
9 digit arithmetic is used. 

(4) In general, as >} is increased , the process will tend 
to produce more multiple roots. Por example, as r> is increased, 
distinct roots (as well as true multiple roots) are more likely 
to be Identified as multiple roots. Conversely,, as r? is 
decreased, multiple roots (as well as distinct roots) will tend 
more to be identified as sets- of distinct roots. 

(5) Essentially, the statement of (4) for r) holds for 8 
as well. 

(6) The values of the roots, as well as their multiplicities, 
can vary significantly with the order in which they are determined. 
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(7) The reader Is referred to the J268 write-up for 
additional information of a more general nature. 

(8) J269 and J270 and the interpreter (J240E or J239F) 
of the Floating Point System are slave routines w.r.to J278 
and therefore must be used in conjunction with J278. Further, 
J269, J270, and the interpreter have the origins YO, ZO, 

and FO respectively, w.r.t. J278. Hence, these regions must 
be assigned locations before J278 is loaded e The first word 
of the interpreter (J240E000 or 5500g) must coincide with F000. 

(9) If the process does not converge, BO and Bl contain 
the last approximation to a root «ft . Also N and the fa,. ,7 
suffice to describe g(z). 

(10) J278E requires only the Exponential (J248E) and 
Logarithm (J249E) programs of the JOHNNIAC Floating Point System 
in addition to the interpreter. 

(11) J278E can't be loaded by X267 without modification since 
too many forward references occur. 

J278 Storage (without slaves) 

Region A (erasable) 27 words (A00-A26) 

Region B (serai-erasable) 10+6N words (BO - B9 + 6N) 

Symbolic Code* 305 words 

Storage Used by Slave Routines (J269E and J270E) 
Region A (erasable) 7 words (AO - A6) 
Symbolic Code: 27 words 
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Combined Storage Used by J278, J269 and J270 
Region A (erasable) 27 words (A00 - A26) 
Region B (semi-erasable) 10 + 6N words (BO - B9 + 6N) 
Symbolic Code: 332 words 

Lattice Diagram Describing Master-Slave Routines 



J269 
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J279P AUTOMATIC COMPUTATION OP THE ZEROS OP A POLYNOMIAL 
WITH COMPLEX COEFFICIENTS — FLOATING POINT SYSTEM 

J279 makes use of J278 to compute the roots of polynomials. 
The roots of the polynomials will be computed and printed one at a 

time. 

Formation of Input Deck : 

1 . blank card 

2. J140A (1 card) 

3. J135A (l card) 

4. J239F or current version of the Floating Point System 

5 . J279F 

6 . Data 

'7. 2 blank cards 
Input Form - Data; 

Information should be punched in the Floating Point Data 
Form as follows: 
Header card for a problem 

Pos (l) S + (blank) if all coefficients are real 

- if any coefficient is not real 
EXP m » the maximum number of distinct roots to 

be evaluated (usually m»n) . If m-0, then 
m will be set •» n. 
MANTISSA ID (iff ID-0, the coefficients of f(z) will 
be printed.) 
Pos (2) S Iff -, set j^-O when \£\ < e \$- J . 

EXP Iff 0, the final reduced polynomial g(z) will 
be printed. 
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MANTISSA n « degree of f(z). 

Pos (3) z R 1 

y Iff z^O, the starting value for the first 
Pos (4) z * \ 

u J iteration cycle will be z . 

Pos W * ff */0, then £ will replace the e(l0"* 7 ) 

in J278. 
Poa ( 6 ) 1^ ^0, then v| will replace the n(lO" 3 ) 

in J278. 

Coefficient cards for a problem 

The coefficients are punched 6/card into consecutive 
positions of the cards beginning with position (l) of th? next 
card after the header card. If the sign in position (l) of 
the header card is + (blank), then only, the real components of the 
coefficients are to be punched and these must be in consecutive 
positions (no gaps). Otherwise, the real and imaginary 
components of each coefficient must be punched. The last 
card for each problem must contain an EP mark (12 punch (+) in 
col. 80). 
A sequence of problems 

The roots for a sequence of polynomials can be evaluated by 
placing the input cards for the polynomials in sequential order 
behind J279P. If the input cards are followed by two blank cards, 
the console will show READER upon completion of the last problem 
or a hang up condition will occur. 

Output Form 

The page will be ejected prior to the beginning of the 
first problem. The numbers printed will be in the external Floating 
Point form. The print format is that described for the 017 (POT) 
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order in the Floating-Point manual. 
Printing for one problem 

Information in x ± x 2 x 3 x k x^ x 6 

header card S EXP MAN S EXP MAN 

* m ID I 0/1 n 



If ID - 0, the printer will be spaced one line. Then the coefficients 
will be printed 8/line, if the sign position of the first word of 
the header card is +, and pairs of real and imaginary coefficients will 
be printed in positions (x x , x 2 ),(x v x^) , and (x ? , x 8 ), otherwise. 

Space 

Roots begin here x x x^ x^ x 4 x^ x g 

A* -V ig(%)i k 



lCll? troot V V — '«^>i 



k 



Space 
Space 



If 0/1 - 0, then the coefficients f&A of g(z) will be printed 



as follows: 





x l 


x 2 


x 3 


x 4 


Coefficient of z N 


a R 
a 

• 
• 
• 


* 

• 
• 




N 


• 
• 




• 
* 


Constant coefficient 


a R 

a N 


•m 1 
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The printer i3 spaced four lines. If there is another problem, 
the header card will be read and printed and the above process 
for printing will be repeated. 

NOTES 

(1) If n exceeds 450, then following the printing of the 
contents of the header card and the printing (if any) of the 
coefficients of f(z), J279 will begin the next problem (if any). 

(2) p < min (m,n) and N ^ n - V_~ k,, where here N 
denotes the degree of the last reduced polynomial g(z). 

(3) If f(z) has real coefficients, Q 1 ji 0, and |J^| > |£ R | •€, 
then J279 will set z Q » £ R - $ , provided £ R - X? has not been 
evaluated previously. 

(4) If the process does not converge, then the printer 
will be spaced twice, z*, z^ 1 , and Igfz^l will be printed 

on one line, and the printer will be spaced twice again. Then if 
0/1 » 0, the coefficients of g(z) will be printed as described 
above. In any event, J279 will then begin the next problem 
(if any). 

(5) The following approximate times were recorded while 
operating in the SD mode: 

z 3 - 1 required 9 sec. z 5 - 1 required 36 sec. 

z 9 - 1 required 76 sec. z 17 - 1 required 401 sec. 

(6) The user is referred to the J278 write-up for a 
description of the method and the definitions of quantities not 
defined in this writeup. 
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(7) The computation for any one problem can be interrupted 
by manually transferring to 51l6g. The result will be the same 
as in (4). Note that the coefficients of g(z) will be printed 
only if 0/1 m o. 

(8) J278 has been modified by placing breakpoint tracing 
marks in certain key words. Thus, if T2 is on, the following 
information will be printed: 

4243 The real part of (Az) i _ 1 is divided by -2 and replaces 
(Az) r 

4244 The imaginary part of (Az) 1 _ 1 is divided by -2. 
4273 2 is subtracted from the real part of x. 

4275 The modulus of the imaginary part of x is divided 

by the real part of x. 
4335 The real part of (Az) ± is multiplied by k ± -^. 
4337 The imaginary part of (hz) ± is multiplied by k ± -,£ . 
4340 The real part of (Az) 1 is subtracted from the real 

part of z., 
4342 The imaginary part of (Az)^ is subtracted from the 

imaginary part of z.. 



Program available as J279F-- 53 cards (J79F001 - J279P053) . 
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J280E CAT Punch with Echo Checking 
Calling Sequence: 

a - k 100 3 

• « 

a 020 a 010 £ 

a + 1 Normal Return 

J280 punches the CAT image* from Bl thru B24, then transfers 
the image to B25 thru B48 where it is used for Echo checking. 
Note that B25 thru B48 must be clear before the first usage and 
must not be disturbed! until the punch is cleared. Also note that 
a card other than a blank (in the punch) will cause an echo 
failure at the time of first usage. 

In the event of an echo failure, one blank card is fed, and 
the failed card is re-punched. The machine will then stop at the 
right of the origin of J280 +23. At this time the penultimate 
card in the stacker is the failed card. Remove the last two cards 
from the stacker, hit CO, and the repunched card will be echo 
checked and normal operation will continue until the next failure. 
Note that the first card into the stacker after hitting 00 will 
be a blank. 



* CAT card image is as follows: 

B 1 C l-40 l2 ' s row 

B 2 c l-40 11,s row 

• • • 

B 12 c il4 9's row 

B 13 c lfi-80 l2 ' s row 

• • • 

I * • 

324 c iU-80 9 '* row 
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Tlmingt There are approximately 39 ms. available for computing 
between the 100 3 instruction and the entry to this routine. 
Program length! 3^ words 
Highest symbol used* * 18 
Region Bi B1-B48 
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J281E Ordinary Least Squares — Floating Point System 

The program computes the best possible polynomial approximating 
a set of data in the sense of least squares. The data consist of 
number pairs (x ± , y ± ) for i « 1, 2, . . ., N which determine a 
relation (x,y) . The program approximates ,(x,y) by a polynomial 



y ( x ) = EZ aj x J - r~ bj (x-m) J , 

N 
where 1 < M < min (10, N-l) and m - J~ X ±/ N ' Tnia program must be 

used in conjunction with the interpreter of the Floating Point 

System. The interpreter is referred to as region F. 

Calling Sequence (x. entry ) z 

a 020 a 010 J281E001 
a+1 M N A x L(x x ) 

a+2 Error Return - (l < M _£ min (10, N-l) is not 

satisfied or 13X in J277) 

a+3 Control returns here. 
Calling Sequence ( y^ entry ) : 





— 




a 


020 a 010 


J281E104 


a+1 


K»o> \ 


L(y x ) 


a+2 


Control returns here 





Application : 

The employment of a double entry is motivated by the case 
where many sets of [yJ correspond to one set of fx ± j . The 
locations of the ^x^j and lyA are equally spaced j i.e. 
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L ( x l+l) * L ^ X i^ + A x for1 ^ 1 ^ N " 1 ' where A x > °» and 
similarly for \yA and A . An x jL entry followed by a y^ 

entry yields b Q , b-^ . .., b^. Following an x i entry -m will 

be in A026. A link to J275E with L(c) - A026.will yield 

a 0' a l* ***' a M* 

Method ; 

The x. entry produces the following results: 
(i) Compute m. 

(il) Form the normal matrix A for fx. '? , where 
x.' =» x i -m for i-1, 2, ..., N, i.e. 



A - 




N 



, \2 



2^1 <V> 2 



rz (x ± ') 2 



N 



nM 



(lii) Compute A" 1 . 

The y. entry produces the following results: 

N 



• * • 



I^Z (Xi') M y^ 



N 



5pV>" 



£<v> 2 7 



-1 



(ii) Compute the vector b m A" y 



/ \ 


b ' 


bl 

• 
* 

• 

m 


V J 



J281E 
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Notea t 

(1) J271, J272, J175, and J276 (or J174) are slaves to J277 
and hence must be assigned locations prior to the loading of J277. 
Further, J 273, in addition to J277 and the interpreter, are slaves to 
J28l and must be assigned locations prior to the loading of J28l . 

(2) For a 13X halt which occurs in J277 see the J277 writeup. 

(3) See the J282 writeup for some timing and accuracy samples. 

J28l Storage 

Region A (eraseable) : A000 - 4N + A283 
Program : 153 words (J281E001 - J281E153) 

Total Storage Including Slaves - Interpreter Excepted 
Region A 1 A000 - 4N + A283 
Program : 510 word's 



Lattice Diagram Describing Master-Slave Relations 
J271 J27J5 N (J174) 
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J282P Ordinary Least Squares -- Ploating Point System 

J282P is an absolute binary assembly of J281E together with 

J175E, J271E - J273E, J275E - J277E and a program which loads, 

computes and prints in a manner to be described. To use J282P form 

a deck consisting of 

(i) one blank card 
(ii) J140A 
(iii) J135A 

(iv) J239P 

(v) J282P 

(vi) data 

(vii) 2 blank cards. 

Header Card Format - 013 style input ; 

pos (1) ID 

pos (2) S blank or + 

EXP blank or zero 
MANTISSA M 
pos (3) S f+ if x i cards follow 

I - if y, cards follow 
EXP ' blank or zero 
MANTISSA N 
pos (4) K if printing of x^, y 1# 7*{\)$^ ±t and ^ 

is to be suppressed. 
[;> otherwise 
pos (4) is examined only if the sign position (3) is — . 

Data Card Format 

If the sign of position (3) of a header card is + , then the N 
values of x, will be loaded 6/card beginning with pos (1) of the 
next card. The card containing the Nth x^ must have an end of file 
mark in col. 80. Upon loading the latter card an x^ entry to J281E 
occurs. A similar statement holds for loading iy^ljpol lowing the 



J282F 
-2- 

y, entry a link to J275E yields a' , a 1# ..., fi^j. 

Ordering of Data Cards 

A set of number pairs (x^ y ± ) is specified by an x ± header 
card followed by the x. cards and a y, header card followed by the 
y ± cards. The x ± cards must precede the y^^ cards and the values of 
M and N on the corresponding header cards must agree. Many sets of 
y. cards can follow a set of x. cards. 

Printing 

The page is ejected following the reading of each x ± header card. 
The printer is spaced one line following the reading of each y^ header 
card. In both cases the contents of the first four positions of the 
header card is printed Immediately thereafter. Following the 
calculation of a Q , «u, ♦ .., sl. the printer is spaced twice and 
a 0* a i» •••» ^ are P rirrbe d 8/line. Then if position (4) of the 
y. header card is non -negative, the program computes A> a*^)' 

y*^), y*(x ± ) - y^^ * v ± and J r^ 2 , for i « 1, ..., N. 

j™l 

An illustrative printing layout follows: 

x l x 2 *3 X 4 x 5 
ID + 00 M + 00 N +00 

ID + 00 M - 00 N +00 

a Q &1 a 2 a 3 a^ , 

2 



J 



one space 
two spaces 

two spaces 



^ y x y*^) 
xg y 2 y»(xg) 



r l r l 



r 2 r l +r 2 



J 2tf2J* 

-3- 
Notes s 

(1) N <£ 54 has been artificially imposed. 

(2) In the event of a 13X halt consult the J277E and J281E 
writeups . 

Timing and Accuracy : 

The Legendre polynomials on [o,l] with N ■ 21 points, (.05) 1, 
were used as test problems. 



M 



Time for x^ entry Time for y A entry Accuracy 



1 3 sees. 1 sees. 8.5 SD 

2 5 " 2 " 8.8 " 

3 8 " 3 " 7.9 " 

4 12 " 4 " 5.5 " 

5 17 " 5 " 5.5 " 

The above times are exclusive of loading and printing times. 
The accuracy refers to the number of correct SD in the least accurate 
of the coefficients. 

Program Available in style P - 53 cards (J282P001 - J282P053) 



John Derr 



2y October 19 L jti 



J283E 



BACK AND FORTH BLOCK TRANSFER 



Let x ■ (x 1 ,...,x n ) and y «* (y 1 ,...,y n ) be two n-tuples 
with real components. Upon entry to J283 the following pair 
of instruction words will be executed for 1 «* 1,2,..., n: 



J283E020 
J283E021 



004 

050 



L(x ± ) 
L(x ± ) 



020 

060 



L(y ± ) 



i.e. y i -^L(x 1 ) and x 1 -^L(y 1 ) is performed in the natural order 
i = l,2,...,n. It is clear that J283 can be modified to function as 
a standard block transfer routine by deleting the 050 or 060 
operation in J283E021. 

The vector x must be placed in H.S.S. as folloVa: 
L(x 1 ), L(x 2 ) - L(x 1 )+ A x , ..., L(x n ) » L(x 1 ) + (n-l) A x , 
where A x is an integer and |a | < 377q. A similar statement 
holds for y. 



Calling Sequence: 










a 


020 


a 


010 


(Link to J283) 


a+1 


»- x oo 


n 


|A X I 




L(x 1 ) 


a+2 


<r y 00 




|A y | 




L(y x ) 


In the above 












/ 


" Ki 


if 


^x 


« 


*x 


■ j 








and similarly 






-|A X | 


if 


^y 


» 1 



Storage 

Region A: 5 words, AO - Ah 

Symbolic Code: 28 words, J283E001 - J283E028 

s ; 

J283 differs functionally from J175 only in the calling sequence. 
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29 October 1958 
J284E LEGENDRE POLYNOMIAL EVALUATION - FLOATING POINT SYSTEM 

The program computes P k (x) f ° r k = 2 >3,-.',M < 15, 
where P (x) = 1, p-^x) = x, and 



P 



n+1 



(x) - ^ x P n W - ^x P^x) for n > 1 



Prior to entering the program by basic linkage the user must 

place 1 in A12 and x in A13 and A35# both numbers being in floating 

point form. In addition, M+l (scaled 2' 39 ) must be placed in A32. 
Upon exit from the program A12+k will contain P k (x) for 

k - 0,1,..., M. It is clear that these cells will contain 

y.p,(x) if A12 and A13 contain y and yx, respectively. 

Calling Sequence ; 

a 020 a 010 J284E001 
a+1 Control returns here 

The program makes references only to the interpreter of the 
floating point system and to that as region P. The user must 
cause P000 to coincide with the first word of the interpreter. 

Storage : v 

Region A: A8, A9, A12 - A27, A31, A32, and A35 
Program: 24 words (J284E001 - J284E024) . 



Upon exit from J285, A32 will already contain M+l. 
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29 October 19^0 

J285E LEGENDRE POLYNOMIAL APPROXIMATION — FLOATING POINT SYSTEM 

The program computes the least squares approximation to a 
set of data with respect to the Legendre polynomials. The data 
consist of number pairs (x^ j^) for i - l,2 t ..,,M which 
determine a relation (x,y) . The program approximates (x,y) 
by a polynomial 

M M , 



X ' 

N 



P(x) "5 b J P J (x) " ^ a J 

where x = (x-m)/(max jx i -m|), 1 < M < min (15, N-l), m * > x./N , 

i ~" 1" J 

P (x) = 1 , p x (x) - x, and 

for n > 1. The \v^\ satisfy 

j_ x PjU) P k (x) - 6 Jk (^Ipj.). 

Calling Sequence (x i entry): 

a 020 a 010 J285E001 

a+1 M N A x L(x x ) 

a+2 Error Return (13X in J277) 

a+3 Control returns here 

Calling Sequence (y i entry) : 



ct 


020 


a 010 J285E105 


a+1 




L(b ) A y L(y x ) 


a+2 


Cont 


rol returns here 
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Appllcation: The employment of a double entry 13 motivated by the 

case where many seta of jy.v correspond to one set of Jx ± l . 

The location of the jxA and $y ± l are equally spaced; i.e. 

L(x i+1 ) * L(x ± ) + A x for 1 < i < N-l, where A x > 0, and 

similarly for the ^y^ and A . An x ± entry followed by a 

y A entry yields b Q , b^, . .., b M » Following an x. entry m villi be 

in A29 and max |x 1 -m| will be in A30. 

i . M 

p(x) can be readily computed by the expression J~~~ b.p.(x) 

if the user links successively to J28U and J271. Alternatively, 

a o' a l* '*'' a M can be obfcalned b y successive links to J286, 
J287, and J275. 

Method : The x ± entry produces the following results: 

(i) Compute m and max |x. -m|. 

i x 
(ii) Form the normal matrix A with respect to the 

/pjO^)] , i.e. if A » (a Jk ), < j,k < M, then 

(iii) Compute A" 1 . 

The y. entry produces the following results : 



N 
(i) Form the vector y » 



5 p °^ )y 



(ii) Compute the vector b « A y «= 
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NOTES: 

(1) J871, J272, J175, and J276 (or J17 1 *) are slaves to J277 
and hance must be assigned locations prior to the loading of J277. 
Further, J273, J283, and J284, in addition to J277 and the 
interpreter, are slaves to J285 and must be assigned locations 
prior to its loading. 

(2) The program makes references only to the interpreter 
of the floating point system and to that as region F. The user 
must cause F000 to coincide with the first word of the interpreter. 

(3) For a 13X halt which occurs in J277 see the J277 wrlteup. 

(4) See the J288 writeup for some timing and accuracy samples 



J285 Storage : 

Region A: A000 - A037 + 2(M+l) 2 

Program: 146 words (J285EOOI - J285E146) 
Total Storage Including Slaves - Interpreter Excepted 

Region A: A000 - A037 + 2(M+l) 2 

Program: 555 words 

Lattice Diagram Describing Master - Slave Relations 

J271 J175 

^\ 



J276 




J283 



29 October 1958 
J286E LEGENDRE POLYNOMIAL COEFFICIENTS — FLOATING POINT SYSTEM 



An entry to this program will produce the coefficients p. , 



of the Legendre polynomials p k on Q-l , l] for k»0,l,...,M; i.e. 
p Q (x) - 1 « p 00 , p x (x) - x » P 10 x° + Vn*, and 



.0 

T p l] 

n+1 



W x > - HOT x p n< x > " hTT Pn-l< x > " ^ P n+1, j xJ for n ^ 1 



Calling Sequence : 






a 


020 a 010 


J286E001 


a+1 


M 


L tooo* 


a+2 


Control returns here 





Prior to entering the program the user should clear cells 
L(p 0Q ) to L(p 00 ) + M(M+l), inclusive, to zero since only the 
non-zero p,, are computed and stored. Upon exit from the program 
the p k . will be in H.S.S. cells in floating point form as follows: 

p 00 p 01 p 02 •*• P 0,M-1 P 0,M 
p ll p 12 p 13 *•* P 1,M "" 



P M-1,M-1' P M-1,M "" "•• "~~ ~ 
P M,M — ... — - 

The cells corresponding to — and to zero p k . are never read into 
the program. The program makes references only to the interpreter 
of the floating point system and to that as region F. The user 
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must cause POOO to coincide with the first word of the Interpreter. 

Storage : 

Region A: 6 words, AO - A5 

Program: 62 words (J286E001 - J286E062). 
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11-18-58 
J287E (TRIANGULAR MATRIX) X VECTOR - FLOATING POINT SYSTEM 

The program computes for k ■> 0,1,... ,M, 

M 



1*«k 



CALLING SEQUENCE : 



a 020 a 010 J287E001 
a+1 L(b ) A L(a Q ) 

a+2 H L (P 0> 

a+3 Control returns here 

Here L(a, + ,) » L(a.) + A, A > 0, L(b. + ,) ■ L(b.) + 1, and the 
p,. must be in consecutive H.S.S. cells as follows: 



p 00 p 01 p 02 ••* P 0,M-1 P 0,M 
p ll p 12 p 13 "' P 1,M -~ 




P M-1,M-1 P M-1,M 

P M,M ~~ — 



The contents of those cells corresponding to a — are Irrelevant. 
Although the storage assignment Is unusual the set of (p^*) do constitute 
an upper triangular matrix in which the elements of each row have been 
moved to the left until the elements on the principal diagonal are at 
the extreme left. 

The program makes references only to the interpreter of the floatirg 
ooint system and to that as region P. The user must cause F000 to 
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colnclde with the first word of the interpreter. 

J271E is a slave to the program and is referred to as region W. 
The user must cause W000 to coincide with J271E000. 

STORAGE : 



Program: 19 words (J287EOOI - J287EOI9) . 
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11-18-58 
J288P LEOENDRE POLYNOMIAL APPROXIMATION — FLOATING POINT SYSTEM 

Thl3 program 13 an absolute binary assembly of J285E 
together with JI75, J271E - J273E, J275E - J277E, J283E, J284E, 
J286E, J287E, and a program which loads, computes and prints in a 
manner to be described. To use J288P form a deck consisting of 
(i) one blank card 
(11) J140A 
(ill) J135A 
(iv) J239P 
(v) J288P 
(vi) data 
(vii) 2 blank cards 
Header Card Format (013 style input) : 
pos (1) ID 

pos (2) S blank or + 

EXP blank or zero 
MANTISSA M 
pos (3) S C+ if x. ± cards follow 

(_- if y i cards follow 
EXP blank or zero 
MANTISSA N 
pos (4) <j < if printing of x A , y^, pfx^, r^, and > ijj" is 

to be suppressed . 
> otherwise. 

Position (4) is examined only if pos (3) < 0. 
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Data Card Format 

If the sign of position (3) of a header card is +, then the 
N values of x. will be loaded 6/card beginning with position (l) 
of the next card. The card containing the N x i mu3t have an end 
of file mark in column 80. Upon loading the latter an x. entry 
to J285E occurs. A Similar statement holds for loading y^ . Following 
the y ± entry successive links to J286E, J287E, and J275E yield 

a Q * • • • * a pJ • 



Ordering of Data Cards 

A set of data points (x.^y,) is defined by an x. header 
card followed by the x^ cards and a y. header card followed by 
the y, cards. The x. cards must precede the y i cards and values 
of M and N on the corresponding header cards must agree. Many 
sets of y.^ cards can follow a set of x.^ cards. 

Printing 

The page is ejected following the reading of each x. header 
card. The printer is spaced one line following the reading of each 
y. header card. In both cases the contents of positions 1-4 of the 
header card is printed immediately thereafter. Following the 
calculation of b Q ,b,,...,b M the printer is spaced twice and 
b ,b,,...,b„ are printed 8/line. Following the calculation of 
a ,...,a» the printer is spaced twice and a^, ...,a« are printed 

8/line. Then if position (4) of the y i header card i3 non-negative , 

M _ 
the program computes p(x A ) *= > b.pj(x i ), p(x 1 )-y i » r^ t and 
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rj , and prints x^ y^ p^), r± , and Y~ r* for i«l,...,N. 
An illustrative printing layout follows; 



x l 


x 2 


x 3 


^ 


ID 
ID 


+ 00 

+ 00 


M 
M 


+ 00 N 
- 00 N 


+ 00 
+ 00 


b 


b l 




b 2 


b 3 


a o 


a l 




a 2 


a 3 


x l 
x 2 


y l 

y 2 




PO^) 
P(x 2 ) 


r l 
r 2 



x 5 



b^ 

a 2j. • • 
r l +r 2 



NOTES : 

(1) M < 14 has been artificially imposed. Recall that M < 15 
for J285. 

(2) In the event of a 13x halt consult the J277 and J28l 
writeups . 

Timing and Accuracy 

The Legendre polynomials on [0,l] with N-21 points, 0(.05)l, 
were used as test problems . 



M 



x i entry y ± entry Printing Accuracy 



1 5 sees. 2 sees. 7 sees. 8 SD 

2 8 " 3 " 10 " 9 " 

3 14 " 4 " 12 •• 7.9" 

4 20 " 6 " 14 " 8.8" 

5 28 " 8 " 17 » 7.5" 



-If- 



The times for the x ± entry and y ± entry are exclusive of loading 
time. The printing times cover only the printing of x ± , y ± , p(x ± ) , 
r* t and r, 2 . The accuracy refers to the number of correct SD in 
the least accurate of the coefficients. 

Program : 66 cards (J288P001 - J288P066). 
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1-16-59 
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J?S9K ORTHOGONAL POLYNOMIAL LEAST SQUARES— FLOATING POINT SYSTEM 

Given a set of points x,,...,x N and an integer M > 1, 
the program computes 

(i) 0^ for J - 0,1,..., M x and dj for j « l,...M x , 

(ii) Pj( Xl ) for 1 < i < N and < j < M x , and 

(iii) (Pj.Pj) for J - 0,1, ...,M X , 

N 
where (f,g) = 5~ ^(x 1 )g(x 1 ) for any functions f and g defined 

on frjl* and the fp.J are defined by 

P (x) » l,P 1 (x) » x + c , and for j > 1 
P J+1 (x) » (x+Cj)pj(x) + djpj-^x), 

and (Pj,P k ) ■ If j / k. 

If, in addition, a set' of points y 1 , ...,y N is given, the 
program computes a ,a 1 ,...,a M , provided M < M x . The (a.J minimize 
_M_ . . 2 M M 



II y " 2Z a 4P4 II * (y - EZ ^P^ y - ZZ a iP J» where y(x, ) 

- y ± . 

Galling Sequence (x, entry) 



a 020 a 010 J289E001 

a+1 M x N A x L(x 1 ) 

a+2 Control returns here 

Calling Sequence (y. entry) 
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p 


020 p 010 


J289E095 


3+1 


^ L(.„) A y 


L(y x ) 


3+2 


Control returns here 





The above notation is defined by L(x ) . L(x,) + A , 

L ( y i+l) " L ^ y i^ + A y* and L ^ a j+1^ ° L ( a j) + l ' 

Application ; The double entry is motivated by the case 
where many sets of [y^J correspond to one set of jxA . 
Following an x, entry 

(i) ' (Pj»Pj) will be in Al8 + 3J for J-0,1, . . .,M X , 
(ii) Cj will be in A19 + 3J for J-0,1, .. .,1^, 
(iii) dj will be in A20 + 3J for J-1,...,M X , and 
(iv) Pj(x ± ) will be in BO + JN + i - 1 for 

l<i<N and < J < f^ . 
A consistent x^ entry must precede the first y. entry and 

M y < M x rausfc alw ays hold. Following a y. entry 

II y - I~ a.pj| 2 will be in Al4. 

1=0 J J 

J u M 

Let p(x) m > a,p-(x). Assuming that a double entry 

to J289 has occurred and the ja.7, jo A, and fd.7 are available, 
p(x) can be readily computed by linking to J291. 

Alternatively, let b Q , b 1 , ..., bj. denote the 

M 
coefficients of p(x) with respect to the basis |l,x, ...,x y 2, 

i-e. > * b 4 x J - > a,p,(x). 
JFO" J >0" J J 
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Then the fb.'l can be obtained by successive links to J290 and 

J292. In case M = M , the following sequence of links is 

x y 

permissible. J289 (x j[ entry ), J290, J289 (y 1 entry), and J292. 
The first two links are performed for x, entries and the last 
two for y i entries. As a result in the case of a many -one 
correspondence between the sets fy.j and (x^, only one link 
to J290 is required. 

An additional flexibility is furnished by a convenient 
arrangement for re-entries, whereby given a larger value of M 
the calculation proceeds from where it left off at the smaller 
value of M. A typical application of re-entries is the 
following: Suppose we are given a set of number pairs, H x ±> y*) * 
i » l,...Nj, and £>0, and that we seek the smallest M such that 

M v 

lly - 5Z a jPjH ; l e» ■ . 

or we seek the smallest M such that 

M. +1 M 



y -fjZ a jPj || > II y -Z=a jPj ||. 



1=0 

An x 1 (y.) re-entry is effected by 

(i) storing ML(M, r ) in the left address of Al6, 
x y 

(ii) storing a+2 (p+2) in the left address of J289E055, and 
(iii) transferring control to the left of J289EO56 (J289EIO7) 
Re-entries are governed by the following rules: 

(i) An entry must precede the first corresponding re-entry, 
(ii) M X ( M V ) must increase with each x.(y.) re-entry, 
(iii) With the exception of A15, Al6, and A20, cells A12 
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- Al8 + 3M , BO - BN(M +1) - 1, and those cells occupied by 
X x 

(a,? should not be read into between entries. 

(iv) M r < K must be valid where M refers to the last 
y •"* x x 

(and largest) value prescribed for an x 1 entry or re-entry. 

An entry with M = Mj_ followed by re-entries with M = Mg, 
. ..,M , M, < Mp <... < M , requires essentially the same 
computing time as a single entry with M » M e «. 



Me thod : 



The x. entry produces the following results: 

N 
Compute Cq « - (> x^/fo. 



(i 



(ii 

(iii 

(iv 

(v 

(vi 

(vii 

(viii 

(ix 

(x 

(xi 

(xii 



Set p-^x^ ■ x 1 + c Q for i ■ 1, ...,N. 

Set p Q (x. ) » 1 for i = 1,...,N, and set J = 1. 

Compute 1 1 p j 1 1 2 , 

Exit if J - M > 0; otherwise proceed to the next step. 

Compute d. = - ||pJ| /IIp^tM • (An x. re-entry 

begins here). 

Compute /PnP^. 

Compute (PiPjiPj)- 

Compute Cj » - (p-j^P j, P j )/| I Pj 1 1 2 . 

Compute tap.. + d -fP-i.i\' 

Compute (p J+1 j - £ jPj } + (p lPj + djPj^} . 

Increase j by 1, and recycle beginning with step (iv). 
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The y. entry produces the following results: 



(i) Set || y - T~ ajPjU 2 - IMI , and set j-1 « -1. 

(il) Compute (y.p,). (A y. re-entry begins here). 

(ill) Compute a^ - (y,Pj)/|| Pjll 2 . 

M 
(iv) Decrease [|y - y_~ a^PjH 2 by aj(y,Pj). 

(v) Increase j-1 by 1. Exit if (j-l)-M„ > 0. Otherwise, 

\ y ~ 

recycle beginning with step (ii). 

Notes: 

(1) J271, J272, and J273 are slaves to J289 and hence must 
be assigned locations prior to the loading of this program. 

(2) The program makes references only to the interpreter 
of the Floating Point System and to that as region P. Region P 
must be assigned a location coinciding with the first word of 
the interpreter prior to the loading of this program. 

(3) I|P H 2 -N 

(k) See the J293 write-up for some timing and accuracy 
samples. 

(5) Good results should not be expected unless the number 
of distinct x. exceeds M . 
J289 Storage 

Region A: A000 - A0l8 + 3M V 

Region B: B000 - B0O0 + (M+l)N - 1 

Program: 123 words (J289E001 - J289E123) 
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Total Storage Including Slaves - Interpreter Excepted 
Region A (the same) 
Region B (the same) 
Program: 242 words 

Lattice Diagram Describing Master - Slave Relations 



J271 



J272 




J273 



J289 



12-16-58 

J290E ORTHOGONAL POLYNOMIAL COEFFICIENTS— FLOATING POINT SYSTEM 

An entry to this program produces the coefficients p^* of 

the first M + 1 polynomials P k (x) . defined by 

p Q (x) - 1 - p Q0 , p^x) m x + c Q - p Q1 x + p n x, and 

n+1 

P n+1 (*) « (x+c n ) p n (x) + Vn-l< x > " ^ p J,n + l xJ for n^l, 
Calling Sequence ; 



a 


020 


a 


010 


J290E001 


a+1 


A c 


L(c o ) 




L < p oo> 


a+2 


A d 


. L (*l> 




M 


ori-3 


Control returns 


here 





Here, A c , A d £ 0, and L(c n+1 ) - L(c n ) + A c , L(d n+1 ) - L(d n ) + A d . 
Upon exit from the program the p k , will be in the (M+l)(M+2)/2 
consecutive H.S.S. cells in floating point form as follows: 

p 00 P 01 " * P 0, PT-r P M 

P n ••• p l, ff-I P l M 

» • 

* • 

P M-1,M-1 P M-1,M 

P MM 

The program makes references only to the interpreter of the 
floating point system and to that as region F. The user must cause 
F000 to coincide with the first word of the interpreter. 

Storage : 

Region A : 6 words (AO - A5) 

Program : 71 words (J290E001 - J290E071) 

John Derr 



ia-22-ijd 



J291E ORTHOGONAL POLYNOMIAL EVALUATION — FLOATING POINT SYSTEM 

An entry to this program with x in the MQ yields 

M 
f U) * Z^ a*P.t(x)i where 

p Q (x) « 1, p x (x) » x + c Q , and for n ^ 1 
P n+1 (x) . (x+c n ) p n (x) + d n P^Cx). 
Upon exit f(x) will be in A6. 



Calling Sequence: 








a 020 


a 


010 


J291E001 


a+1 A a 


L(a Q ) 


*c 


L ( c o> 


ct+2 


M 


A d 


L(d x ) - A d 



(enter with x in MQ) 



a+3 



Control returns here with f(x) in A6. 



Here, & & , L Qt A d £ 0, and I«(aj +1 ) — A & + L(aj), L ( c j + i) " A c + L ( c j)' 

and L(d-+1) ■» A. + L(d..). Only the interpreter of the Floating 
Point System is required, and it is referred to as region P. The 
user must cause P000 to coincide with the first word of the 
interpreter. 



Storage > 

Erasable : 7 words 
Program i 38 words 



(A0-A6) 
(J291E001 -' J291E038) 



11-19-58 



J292E TRIANGULAR MATRIX X VECTOR - FLOATING POINT SYSTEM 
The program computes for k « 0,1,... ,M, 

CALLING SEQUENCE : 

a 020 
a+1 
a+2 
a+3 Control returns here. 



Here L(a J+1 ) » L(a_j) + A & , A ft > 0, L(b J+1 ) » L(bj) + 1, and 

the p. , must be in the consecutive (M+l)(M+2)/2 H.S.S. cells as 
follows : 



a 


010 


J292E001 


L(b ) 


*a 


L ( a o> 


M 




L(p 0Q ) 




P 01 


p 02 


• • • 


P 0,M-1 


p 0M 


P ll 


p 12 


• • • 


P 1,M-1 

• 
• 
• 

P M-1,M-1 


p lM 

P M-1,M 
P MM 



The fpi,4? constitute an upper triangular matrix. The storage 
assignment is compressed so as to eliminate the cells corresponding 
to matrix elements below the main diagonal. 

The program makes references only to the interpreter of the 
floating point system and to that as region P. The user must cause 
P000 to coincide with the first word of the interpreter. 
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J271E is a slave to this program and is referred to as region W. 
The user must cause W000 to coincide with J271EOOO. 

STORAGE : 20 words ( J292E001 - J292E020) . 



John Derr 
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J293F ORTHOGONAL POLYNOMIAL LEAST SQUARES --FLOATING POINT SYSTEM 

J293P 1b an absolute binary assembly of J289E together with 
J271-3, J290, J292, J240, J242, J244, and a program which loads, 
computes and prints in a manner to be described. To use J293F 
form a deck consisting of 



(1) 


one blank card 


(11) 


J140A 


(ill) 


J135A 


(iv) 


J293F 


(v) 


data 


(vi) 


2 blank cards 


Header Card 


Format - 013 Style Input: 


pos 


(1) 


pos 


(2) S f+ if an entry 




(-If a re-entry 




EXP blank or zero 




MANTISSA M 



pos (3) S (+ if x ± 

I- if y ± 

EXP blank or zero 
MANTISSA N 



pos (4) /< and pos (3) < if the printing of x ± , 

7 V p(x ± ), r ± , and 

r r, 2 is to be suppressed. 

- 1 

< and pos (3) > if the sheet eject prior 

to the printing of the x^ 
header card is to be replaced 
by skipping K lines. 
> o otherwise 

Data Card Format 

:._If pos (2) > and pos (3) > (pos (3) < 0) for a header 
card, then N values of x ± (y ± ) will be loaded 6/card beginning 
with pos (l) of the next card. The' card containing x N (y N ) must 
have a 12 punch In col. 80. Upon loading the latter Card an x^y^ 
entry to J289 occurs with M x (M ) = M. 

Ordering of Header Cards and Data Cards 

A set of number pairs (x ± , y^,) is specified by an x ± header 
card with pos (2) > followed by x ± data cards and a y ± header 
card with pos (2) > followed by y ± data cards. The x ± cards 
must precede the y, cards. In the case of re-entries no data 
cards follow the corresponding header cards. See the J289 
write-up for a discussion of re-entries and a many-one correspondence 
between the sets [yj and [xjj • 
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Prlntlng 

The page is ejected (the page is spaced four lines) 

following the reading of each x, header card if pos (4) > (<0), 

The page is spaced one line following the reading of each y^ 

header card. In all cases the contents of pos (l) - (4) of 

the header card are printed immediately thereafter. The page 

is spaced two lines prior to a y^ entry or re-entry. Following 

M 2 
itry || y - Y~~ a.p.|| is printed in the x 2 field. Follow- 



that en1 



ing the calculation of b Q , b,, ...,b H the printer is spaced • 

one line and the |b.) are printed 8/line. Then if pos (4) > 0, 

the printer is spaced two lines, and the program computes 

M i 2 

P( x j.) - ZZ ajPjCx^, r ± = p(x ± ) - y ± , and T~ ** k , and prints 

i 2 
x.«, V*> p(x A ), r., and > r. in positions x,,...,x,- for 

l^tal 

1 = 1,..,,N. An illustrative printing layout follows: 



one space 
two spaces 



one space 



x l 


X~ "\ 


x k 


X 5 


ID 


+ 00 3 + 00 5 + 


00 — - 




ID 


+ 00 3 - 00 5 + 
J -6 J J 


00 — 




a o 


a l a 2 


a 3 





.4- 



two spaces 


x l 
x l 




x 2 
*1 




X3 


' r l 


x 5 




X 2 




y 2 




P(x 2 ) 


r 2 


'lW 




X 3 




y 3 




p(x 3 ) 


r 3 


2 2 2 
r l +r 2 +r 3 




x 4 




y 4 




P(x^) 


r 4 


2 2 
r x + . . . +r^ 




x 5 




y 5 




P(^ 5 ) 


r 5 


2 2 


Notes: (l) 


M < 


25 


and 


N 


£ 90 must 


hold. 





(2) The number of distinct x^^ should exceed M. 

Timing and Accuracy; 

(l) The Legendre polynomials on [0, l] with N » 21 points, 
0(.05)l yielded the following information operating in the 
SD mode : 

M x, entry y 4 entry compute fb,l Print Accuracy 



— 


i " 


"i " 


1 j- 


7 




1 


2 . 


1 


1 


9 


2 


4 


2 


1 


7 


8.8 


3 


6 


3 


1 


8 


7.2 


4 


8 


3 


2 


8 


6.8 


5 


11 


h 


2 


9 


6.1 



The times in seconds under x ± entry to print inclusive are 
exclusive of loading times. The accuracy refers to the number 
of correct SD in the least accurate of the coefficients. 
(2) With the duplication of the points 0, .05, .5, -95> and 1 
(i.e. N =» 26), the following results were obtained assuming 
entries with M « 5 have occurred previously: 



M 
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x. re-entry y, re-entry compute [b. j Print 



10 15 3 5 1* 

15 15 3 9 18 

20 15 3 16 22 

25 15 3 25 25 

Program : 102 cards (J293P001 - J293P102). 
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J29^E ORTHOGONAL POLYNOMIAL LEAST SQUARES— EQUALLY SPACED POINTS 

Given a set of points x ]L ,...,x N and an integer M x > 1 
such that y (x^ 1 ) = for 2k+l = 1,3,5, ... » M x /( M x _i)> 



N 
where m = (\ x .)/N, the program computes 

(i) dj for j = 1, ...M x , 
(ii) pAx ± ) f or 1 < i £ N and £ j < M x , and 
(iii) (Pj,Pj) for j = 0,1,... ,M X , 

N 
where (f,g) = \ f(x 1 )g(x 1 ) for any functions f and g defined 

i=l 
on fx\j,x = x-m, and the (pA are defined by 

p Q (x) = ^P^x) = x 

P4a.i(x) = xp/x) + d p (x) for j > 1, 
J+1 J j J-l 

and (Pj,P k ) = if j /k. 

If, in addition, a set of points y- L ,...,y N is given, the 

program computes a Q , a 1 ,...,a M , provided M y <£ M JC . The {a j ] 

M 3 M M 

minimize ||y - J~~ »jPjll = (y - ^T~ & ^y 7 " V~ a j p j)' 

where j(x ± ) = y 1# 

Calling Sequence (x ± entry) 




a 


020 a 010 


J294E001 


a+1 


M x N A x 


L(x x ) 


a+2 


Control returns here 
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Calling Sequence (j^ entry) 



p 


020 £ 010 


J294E075 


f3+l 


M L(a ) A 
y ^ & o ; y 


Uy ± ) 


3+2 


Control returns here 





The above notation is defined by LU 1+1 ) = I*(x ± ) + & x > 
L(y 1+1 ) = L{y ± )+/±y, and L(a j+1 ) = L(a^ + 1. 

Application: The double entry is motivated by the case 
where many sets of fo ± ] correspond to one set of (x^J. 
Following an x.^ entry 

(i) (Pi'Pj) wil1 be ln Al8 + 3J for Z** * 1 '"" 1 **' 
(ii) -m will be in A15. 
(iii) d. will be in A20 + 3j for J-l, ...,M X , and 
(iv) P*^) will be ln BO + JN + i - 1 for 
1 < i < N and < J < M x . 

A consistent x. entry must precede the first j ± entry and 
M < M must always hold. Following a y. entry 

y — X J- 

M. 
|| y - y~ a.p.|| 2 will be in All. 

Let p(x) = 5* a,p.(x). Assuming that a double entry to 

J294 has occurred and the [a.j, [c,], and j"d.| are available, 
p(x) can be readily computed by linking to J29-6 with x in the MQ. 

Alternatively, let b n , b, ,...,b M denote the 
coefficients of p(x) with reBpect to the basis jl,x, ...,x y j , 

i.e. > " b,x J o y~~ a^PjCx). 
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Then the jb.] can be obtained by successive links to J295, J292, 
and J275. In case M = M , the following sequence of links is 
permissible. J29^ (x 1 entry), J295, J29^ (y ± entry), J292 and 
J275. The first two links are performed for x. entries and 
the last three for y. entries. As a result in the case of a 
many-one correspondence between the sets fy ± ] and Jx C, only 
one link to J295 is required. 

An additional flexibility is furnished by a convenient 
arrangement for re-entries, whereby given a larger value of M 
the calculation proceeds from where it left off at the smaller 
value of M. A typical application of re-entries is the 
following: Suppose we are given a set of number pairs, {(x.,y 1 ): 

i = 1, . . ,n], and £>0, and that we seek the smallest M such that 

M 

II y - XZ ajPj||<£, 

or we seek the smallest M such that 
M +1 M 

lly _ -g— - a p 1 1 > ||y - y- a.p M . 

X-4 (y 1 ) re-entry is effected by 

(l) storing M (M ) in the left address of Al6, 



An 



(ii) storing ct+2 (p+2) in the left address of J294E050, and 
(ill) transferring control to the left of J294E051 (J294E087) 
Re-entries are governed by the following rules: 

(i) An entry must precede the first corresponding re-entry, 
(ii) M (M ) must increase with each x, (y . ) re-entry, 
(iii) With the exception of Al6, and A20, cells A12 
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- Al8 + 3M V , BO - BN(M +1) - 1, and those cells occupied by 



fa.] should not be read Into between entries. 

(and largest) value prescribed for an x. entry or re-entry. 



(iv) M < M v must be valid where M refers to the last 
y — x x 



An entry with M = M, followed by re-entries with M = M 2 , 

,M . M, < M- <... < M . requires essentially the same 
e x c. e 



computing time as a single entry with M = M_. 

e 



Method: 



The x. entry produces the following results: 

N 
Compute - m , = - (Y x. )/to. 



(1 



(ii 

(iii 

(iv 

(v 

(vi 

(vii 

(viii 

(ix 

(x 



1. 



Set P 1 (x* i ) = x^ for i = 1,...,N. 

Set p (x.) = 1 for i = 1,.,.,'N, and set j 

Compute | | p , 1 1 . 

Exit if j - M > 0} otherwise proceed to the next step, 

Compute dj - -MPjIlVllPj.ill 2 . (An ^ re .entry 

begins here). 

Compute /p,p,t. 

Compute (p^.^p,). 

Compute (p J+1 l - (p lPj + d jPj-1 } . 

Increase J by 1, and recycle beginning with step (iv) . 
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The y, entry produces the following results: 

M 
(1) Set ||y - ^Za jPj || 2 = !|y|| 2 , and set j-1 = -1. 

(li) Compute (y,p.). (A y. re-entry begins here). 

2 
(iii) Compute aj - (y,Pj)/|| Pjll • 

M 
(iv) Decrease ||y - 5~ a.p | \ bya,(y,p,). 

(v) Increase J-1 by 1. Exit if (j-l)-My > 0. Otherwise, 
recycle beginning with step (ii). 



Notes : 

(1) J271, J272, and J273 are slaves to J29 1 * and hence must 
be assigned locations prior to the loading of this program. 

(2) The program makes references only to the interpreter 
of the Floating Point System and to that as region F. Region F 
must be assigned a location coinciding with the first word of 
the interpreter prior to the loading of this program. 

(3) l|P M 2 =N 

(1) See the J297 write-up for some timing and accuracy 
samples. 

(5) Good resultB should not be expected unless the number 
of distinct x. exceeds M x . 

J29^ Storage 

Region A: AO00 - A0l8 + 3M V 

Region B: B000 - B000 + (M+l)N - 1 

Program: 103 words (J29^E001 - J294E103) 
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Total Storage Including Slaves - Interpreter Excepted 

Region A (the same) 
Region B (the same) 
Program: 222 words 

Lattice Diagram Describing Master - Slave Relations 



J271 



J272 




J294 



J273 



2-26-59 
J295E ORTHOGONAL POLYNOMIAL COEFFICIENTS— EQUALLY SPACED POINTS 

An entry to this program produces the coefficients Pj . of 

the first M + 1 polynomials P k (x) defined by 

p (x) = 1 = p 00 , P 1 (x) = x - p 01 x° + Pll x, and 

n+1 j 
Pn + l< x > = xp n^ + d n p n-l^) " ^ P J,n + l x 



for n > 1. 
n 1 ' n _ n-±" • *r^ -j,ui-j. — 

Calling Sequence: 



a 020 a 010 J295E001 

a+1 L (P00^ 

a+2 A d L(d x ) M 

a+3 Control returns here 
Here, A d > 0, and L(d n+1 ) = L(d n ) + A d . Upon exit from the 
program the p. will be in the (M+l)(M+2)/2 consecutive H.S.S. 
cells in floating point form as follows: 

00 P 01 •** P 0,M-1 P M 

P H ••' P 1,M-1 P l M 



P M-1,M-1 P M-1,M 



P MM 



\ 



.Those p. for which J+k Is odd are zero, but zeros are not 
stored by this program In the corresponding cells. A good 
procedure is to clear the (M+l)(M+2)/2 cells to zero prior to 
each entry to this program with a new value for M. 
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The program makes references only to the interpreter of 
the floating point system and to that as region P. The user 
must cause P000 to coincide with the first word of the 
interpreter. 

Storage : 

Region A : k words (A0-A1, A2,A*0 
Program : 51 words (J295E001 - J295E051) 



2-25-59 
J296E ORTHOGONAL POLYNOMIAL EVALUATION- -EQUALLY SPACED POINTS 

An entry to this program with x in the MQ, yields 



f(x) = \ a.p.(x), where 



1=1 

p Q (x) = 1, p,(x) = x, and for n > 1 

>W X > =*P n (x > + d n p n-lW' 
Upon exit f(x) will be in A6. 

Calling Sequence ; 

a 020 a 010 J296E001 (enter with x in MQi 

a+1 A & L(a Q ) 

a+2 M A d L(d 1 ) - A d 

a+3 Control returns here with f(x) in A6. 

Here, A & , A d > 0, L(a J+1 ) = A & + L(aj), and L(dj+l) = A fl + L(dj). 
Only the Interpreter of the Floating Point System Is required, 
and it is referred to as region P. The user must cause F000 to 
coincide with the first word of the interpreter. 

Storage : 

Erasable : 7 words (A0-A6) 

Program : 33 words (J296E001 - J296E033) 
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J297F ORTHOGONAL POLYNOMIAL LEAST SQUARES --EQUALLY SPACED POINTS 

J297F Is an absolute binary assembly of J29^E together 
with J271-3, J275, J295, J292, J240, J242, J244, and a program 
which loads, computes and prints in a manner to be described. 
To use J297P form a deck consisting of 
(i) one blank card 
(ii) J140A 
(iii) J135A 
(iv) J297P 

(v) data 
(vi) 2 blank cards 

Header Card Format - 013 Style Input: 



pos 


(1) 






pos 


(2) 


s 


(+ If an entry 
( - if a re-entry 






EXP 


blank or zero 






MANTISSA 


M 


pos 


(3) 


S 


r+ if x ± 

l- if 7 ± 



EXP blank or zero 

MANTISSA N 
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pos (4) ^ < and pos (3) < if the printing of x ± , 

Y v P(x ± ), r ±f and 

rr, is to be suppressed. 

i 

< < and pos (3) > if the sheet eject prior 

to the printing of the 
x. header card is to be 
replaced by skipping 4 
lines. 
n, o otherwise 

Data Card Format 

If pos (2)^0 and pos (3) 2 ° (P os 0) < <>) for a header 
card, then N values of x ± (y ± ) will be loaded 6/card beginning 
with pos (1) of the next card. The card containing x^ (y M ) must 
have a 12 punch in col. 80. Upon loading the latter card an 
xAj ± ) entry to J29^ occurs with M x (K y ) = M. 

Ordering of Header Cards and Data Cards 

A set of number pairs (x ± , y ± ) is specified by an x ± header 
card with pos (2) > followed by x ± data cards and a y ± header 
card with pos (2) > followed by y ± data cards. The x ± cards 
must precede the y ± cards. In the case of re-entries no data 
cards follow the corresponding header cards. See the J29 2 * 
write-up for a discussion of re-entries and a many-one corres- 
pondence between the sets fyJand [x ± j. 
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Prlntlng 



The page is ejected (the page is spaced four lines) 
following the reading of each x^ headur card if pos (4) > (<0). 
The page is spaced one line following the reading of eaoh y ± 
header card. In all cases the contents of pos (l) - (4) of 
the header card are printed immediately thereafter. The page 
is spaced two lines prior to a j^ entry or re-entry. Following 

M p 

that entry ||y - T~" a <Pjll i8 printed in the x 2 field. Follow- 



ing the calculation of b Q , b^, ...,b H the printer is spaced 

one line and the jb.j are printed 8/line. Then if pos (4) 2. °> 

the printer is Bpaced two lines, and the program computes 

M 1 2 

P( x i) " ZZ ajPjf^i)* r ± - P(x 1 ) - y ± , and Y~ r k , and prints 

i p 
J^t Y v P^). v ± , and T" r k in positions x lt ...,x^ for 

1 - 1,...,N. An illustrative printing layout follows: 





x l 


x 2 x 3 




x 4 


x 5 




ID 


+ 00 3 +00 5 


+ 


00 — 




one space 


ID 


+ 00 3 - 00 5 


+ 


00 — 




two spaces 




»' -£,•*"' 


















one space 














a o 


a l a 2 




a 3 





-2|. 



two spaces 



x l 


X 2 


X3 


x 4 


x 5 


x l 


y l 


P(x x ) 


r l 


'l* 


X 2 


y 2 


P(x 2 ) 


r 2 


2 2 
r l +r 2 


x 3 


y 3 


P(x 3 ) 


r 3 


2 2 2 
r l +r 2 +r 3 


H 


y 4 


P(x^) 


r 4 


2 2 
r x +. . .+r^ 


x 5 


y 5 


p(* 5 ) 


5 


2 2 



Notes: (l) M < 25 and N £ 90 must hold. 

(2) The number of distinct x^ should exceed M. 

Timing and Accuracy: 

(l) The Legendre polynomials on [0, l] with N = 21 points, 
0(.05)l yielded the following information operating in the 
SD mode : 



M 


x l 


entry 


y i 


entry 


1 




2 




1 


2 




3 




2 


3 




k 




3 


4 




5 




3 


5 




7 




k 



compute fb . ) 



Print 


Accuracy 


. 7 


9 


7 


8.6 


8 


8.5 


8 


8.7 


' 9 


7.5 



1 
1 
1 

2 
2 

The times in seconds under x. entry to print inclusive are 
exclusive of loading times. The accuracy refers to the number 
of correct SD in the least accurate of the coefficients. 
(2) With the duplication of the points 0, .05, .5, .95, and 1 
(i.e. N = 26), the following results were obtained assuming 
entries with M = 5 have occurred previously: 

















-5- 


M x ± 


re -en try 


y l 


re- 


-entry 


compute 


b ,i 


Prlnt 


10 


9 






3 


4 




14 


15 


9 






3 


7 




18 


20 


9 






3 


14 




22 


25 


9 






3 


21 




25 


Program : 


103 cards 


(J293P001 


- J293F1 


03). 
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J298E* INTEGRATION BY SIMPSON'S RULE WITH PRESCRIBED ERROR- 
FLOATING POINT SYSTEM 

J298 computes / a b f(x)dx, where f (x) Is computed by an 
auxiliary subroutine written by the programmer. J298 divides 
the domain from a to b, a < b, into N intervals of length A i , 
i ■ 1, 2, ..., N, and computes the area J^ ' for each sub- 
interval by Simpson's 5 point formula. The /aA are chosen 
small enough so that the relative error E M in the interval 
a M to a M + A M is less than the error prescribed by the pro- 
grammer, i.e. , so that 

(1) /*(3) . f(5) 



f(3) . f 



_ . . . M 



rr 



1=1 



where / 4 ^' = the area over the i interval as computed by 

Simpson's 3 pt. formula. 
'5) a the area over the i interval as computed by 
Simpson's 5 pt. formula, 
and C= the error prescribed by the programmer. 



u 



The maximum error possible over the entire interval from a to b 
is NCmax F(x) where F(x) « / x f(t)dt. The method is a modifi- 
cation of that described in Scarborough. 



■'"Scarborough, Numerical Mathematical Analysis , 3rd edition, 
p. 178. 

*J298 Is J192 as modified for the revised JOHNNIAC Floating 
Point System. 
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Calling sequence: 

a 020 a 010 

a+1 a 

cx+2 b 

a+3 A 1 

a+4 

a+5 Control returns here in floating point 

a, b, A 1 , and C must be in the floating point data form. 
If the starting A is not prescribed but is to be determined by 
J 298, step a+3 must be negative. 

The computational procedure is as follows: 

Define h. «■ *i. Let hj be a temporary value for h ± . 
If step a+3 is minus, make A x -■ b-a, otherwise make A x the con- 
tents of a+3« 

If E, > £ replace h^ by h^/2. Repeat this halving procedure 
until either E 1 < £ or h^/2 < 10"* (^ + &[) . In both cases the 
last h^ is used in computing J^^ . In the latter case a row 
of 11 nines is printed to indicate that the error criterion was 
not met. This process is used for each interval 1=1, 2, . .., N. 

The constant 10"* ia located in the 96 th (last) word. Thus 
the 10"* (ajt+^wr) criterion can be changed by the programmer to 
fit a particular problem. If 500 E ± < £ , set h 1+1 » 2h ± . The 
constant 500, located in word 95 can also be changed. 

The auxiliary closed subroutine is entered by J298, with 

x in the floating point AMQ by means of the calling sequence: 

y 020 y 010 1000 

•y+1 Control returns here in floating point 

At step 7+1 f (x) should be located in the AMQ and the floating 
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point system should be in control, i.e., the exit from the auxi- 
liary subroutine must not be made with an 010 (EXL) order. 

The final exit from J298 to step a+5 is made with the float- 
ing point system in control. 

If cell AO is positive, after the computation on the M th 
interval is completed, the following line of information will be 
printed in the Floating Point print format: 

x l x 2 x 3 * 4 x 5 x g ^ 

(5) a a M-^M — L. ^ a a 

MM 7 m a M a M 



iol 



where a M and a M +A M are the first and last points of the M th . 'sub- 
interval , i.e., &1 -a and ajj+o^-b. The printer will be spaced one 
line following each such line of printing. 

If cell AO is negative after the computation on the M fch 
interval is completed, there will be no printing. On exit from 
J298 V J ± (5) wlll be ln cell BQt 
fel 

Symbolic code : 96 words 

Region A (erasable): 6 words, AO, Al, A4-A7. 

Region B (semi -erasable): 19 words, BO to B18. 

Region B is erasable except for the f(x) routine. 

Region p. interpreter of Floating Point System. Theuser must 

interpreter. the flr3t Word of the 

Region I: f(x) routine 
Program available as J298E. 



Marvin Shapiro 
Revised by John Derr 
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J301E SQUARE ROOT - JOHNNIAC FLOATING POINT SYSTEM 

When used in conjunction with J300E, J301E will execute 
the 051 floating point operation as described in the JOHNNIAC 
Ploating Point Interpretive System manual.* J300 must be loaded 
prior to J301E, and the first word of J300E must coincide with 
F000. 

Program Storage : 27 words (28 style E cards - J301E000 to 

J301E027). 
Region E: 13 words, E000 - E012. 

* J301 differs from J245 as follows: The operation /y~- 10 

described in step 6 on page 49 is now rounded. Step 7 on page 49 
should be changed to read, 

7) The remaining steps of this operation are like steps 6-10 
for the ADD operation. 

John Derr 
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J302E COMPLETE ELLIPTIC INTEGRAL OP FIRST KIND - 

FLOATING POINT 



2 
An entry to this program with 1-k in the AMQ will 

result in the computation of 

K(k) - f dQl , where < k < 1 . 

J° V 1-k 2 sin* a 

Upon exit from the program K(k) will be in the AMQ. 

CALLING SEQUENCE 

a 020 • a 010 J302E001 (Execute with 1-k 2 

in AMQ) 

a+1 Control returns with K(k) in the AMQ. 

METHOD: The program approximates K(k) by .;; 

K*(k) - a +7 ![ a l +a 27|] "{ h ¥7 l[ h l ¥h 2 7 l}} log ?? ' 



■ n 


p 

» 1-k and 


a 


- 1.386294* 


a l 


- .1119723 


a 2 


» .0725296 



b 0" 


.5 




"l- 


.1213*78 




b 2 » 


.0288729 


• 



ACCURACY : max |K*(k) -K(k) | < .00003* . . 



NOTES : This program requires only the interpreter of the 
Floating Point System, and it is referred to as region F. 

*Reference: Cecil Hastings, Jr., Approximations for Digital 
Computers, R-264, 195*, p.170. 



1-16-59 
-2- 



The user must cause POOO to coincide with its first word. 
Program Storage: 17 words (J302E001 - J302E017) 
Erasable Storage (Region A) : 2 words (AOOO-AOOl) . 
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J303E COMPLETE ELLIPTIC INTEGRAL OP SECOND KIND - 

FLOATING! POINT 



An entry to this program with 1-k 2 In the AMQ will 

result in the computation of E(k)-1 for < k < 1, where 

r w/2 / — 5 p- 

E(k) - Vl-k sin^dl d&. 

JO . 

Upon exit from the program E(k)-1 will be in the AMQ. 

CALLING SEQUENCE : 

o 
a 020 a 010 J303E001 (Execute with 1-k 

in AMQ) 

a+1 Control returns here with E(k)-1 in the AMQ 
METHOD : The program approximates E(k)-1 by 

E*(k)-1 -TJia^a^^^)] - {^[v^VV^j log ?? ' 

2 
where 77 - 1-k and 

c^ - .44479204 b x - .249697949 

a 2 - .085099193 b 2 - .08150224 

a 3 « .040905094 b 3 - .01382999 • 

ACCURACY » max |E (k) - E(k)| < . 0000007 . 
k 



* 



NOTES : This program requires only the interpreter of the 
Floating Point System, and it is referred to as region F. 
The user must cause F000 to coincide with its first word. 
Program Storage : 18 words (J303E001 - J303E018) 
Erasable Storage (region A) : 2 words (A000-A001) 

*Reference: Cecil Hastings, Jr., Approximations for Digital 
Computers, R-264, 1954, p. 174. 
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J304E COMPLETE ELLIPTIC INTEGRAL OF THIRD KIND— FLOATING POINT 

2 
An entry to this program with n in A2 and k in A3 will 

yield the evaluation of 

^ w . 

/T(n,k) = / o | x * — 

J Q (1+n sin *p)>J l-k d sin f 

where n > -1 and < k < 1. Upon exit from the program 
7f(n,k) will be in BO. 

Calling Sequence : 

a 020 a 010 J304E001 
a+1 Control returns here. 

Method: The integral is evaluated by linking to J298 with 
a = 0, b = 1.5707963, A 2 = .1, and £ = 10"* 6 . The quantities 
a, b, A-p and £ are in J304E003 - J304E0O6 respectively. 

Accuracy: The error is bounded by N£7T(n,k) and is generally 
much smaller, where N is as defined in J298 — the number of 
intervals A. into which [0,71/2] is divided. N increases as 
n — > - 1 or k • — > 1, but for an "average" case A. > .1 for 

Notes : 

(1) 7T(o,k) = K(k) 

(2) 77(-k 2 ,k) =E(k)/(i-k 2 ). 

(3) J304 makes references to the Interpreter of the 
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Ploating Point System as region P and to J298 as region Z. 
Hence regions P and Z must be assigned prior to loading J304. 

(*0 J304 uses the 051 and 052 floating point operations. 

(5) Region I begins at J30^E008. See the J298 write-up. 

(6) If cell AO is positive printing will occur as des- 
cribed in the J298 write-up. 

(7) Cells AO and J304E005-6 can be manipulated by the 
user within the limitations imposed by J298. 

Storag e : 

Symbolic Code: 18 words; 19 cards— J304E001-J30HE019 
Region A (erasable): 2 words, A2-A3 for J30l; 

8 words, A0-A7 including J298. 
Region B (semi-erasable): 1 word, BO for J304; 

19 words, B0-B18 including J298. 
Region P: Interpreter of the Floating Point System. 
Region I: f(x) auxiliary routine. 
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J305E ORTHOaONAL POLYNOMIAL LEAST SQUARES WITH WEIOHTS 

Given a set of points x^ . . ., x.., a set of non -negative . 

n 
points w x , . . ., Wjj satisfying V \t ± > 0, and an integer M x > 1, 

the program computes 

(i) Cj for j » 0, 1, . .., M x and d, for J » 1, . . .M x , 
(ii) PjCxj^) for 1 £ i £ N and £ J £ M x , and 

(iii) (Pj,Pj) for J -0, 1, ..., M x , 

N 
where (f,g) « £ w ± £(x.)g(x..) for any functions f and g 
i«=l 

defined on |x ± J , and the (p . I are defined by 

p Q (x) » l,P 1 (x) m x + c Q , and for J > 1 

Pj + l( x ) » (x+Cj)Pj(x) + d^p^x), 

and (Pj#P k ) ■ if J / k. 

If, in addition, a set of points y., . . . , y_. is given, the 
program computes a Q , a 1# . . ., a„ , provided M < M^. The [a. I minimize 

J-0 j«0 joO 

Calling Sequence (x. entry) 

a 020 

a+1 M 

a+2 

a+3 Control returns here 



a 


010 


J305E001 


N 


A x 


L(x 1 ) 




*w 


L(w 1 ) 
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Calling Sequence (y. entry) 






020 p 010 


J305E105 


p+1 


•V «« > \ 


L( yi ) 


3+2 


Control returns here 





The above notation is defined by L(x ± x ) « L(x,) + A , 

L(w i+1 ) = L( Wl ) + A w , L(y 1+1 ) » L( yi ) + Ay, and L(a J+1 ) « L^) + 1, 

Application: The double entry Is motivated by the case where 
many sets of ly ± \ correspond to one set of i x ± I and (w. I . 
Following and x. entry 

U) (Pj'Pj) will be in A18 + 3J for j»0, 1, ..., M , 

(ii) Cj will be in A19 + 3J for j«0,l,...,M , 

(iii) dj will be In A20 + 3J for J«1,...,M , and 

(iv) Pj(x ± ) will be in BO + (j+l)N + 1 - 1 for 

1 <, i 1 N and ^ j ^ M x . 
A consistent x ± entry must precede the first y. entry and 
My £ M x must always hold. Following a y. entry 

" y " L a j p j" 2 Wil1 be ln A 1 *' 
d»o 

Let p(x) m y a.p.(x). Assuming that a double entry 

i^o 

to J305 has occurred and the ja^, (c.j|, and /dj I are available, 
p(x) can be readily computed by linking to J291. 

Alternatively, let b Q , b.,, . . , } b» denote the 

coefficients of p(x) with respect to the basis (l,x,...,x My 
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i.e. 



■V , M y 

j«=0 j«0 



Then the |b, ( can be obtained by successive links to J290 and 
J292. In case M x « M , the following sequence of links is 
permissible. J305 (x ± entry), J290, J305 (y ± entry), and J292. 
The first two links are performed for x. entries and the last 
two for y ± entries. As a result in the case of a many-one 
correspondence between the sets fyA and UAU l^A , only one link 
to J305 is required. 

An additional flexibility is furnished by a convenient 
arrangement for re-entries, whereby given a larger value of H 
the calculation proceeds from where it left off at the smaller 
value of M. A typical application of re-entries is the 
following; Suppose we are given the set f w,\ and a set of 
number pairs, |(x jL , y ± ) j i » 1,...N J, and £>0, and that we seek 
the smallest M such that 

J«0 
or we seek the smallest M such that 

" y " L a J p J*' ~ " y " L a j p j" - 

An x ± (y ± ) re-entry is effected by 

(i) storing M x (My) in the left address of Al6, 
(ii) storing a+2 (p+2) in the left address of J305E064, and 
(ill) transferring control to the left of J305E065 (J305E125) 
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Re-entries are governed by the following rules: 

(i) An entry must precede the first corresponding re-entry, 
(li) M x (M y ) must increase with each x^y.) re-entry, 
(iii) With the exception of A15, A16, and A20, cells A12 
- A18 + 3M X , BO - BN(M x +2) - 1, and those cells occupied by 
y a^j should not be read into between entries . 

(iv) My £ M x must be valid where M x refers to the last 
(and largest) value prescribed for an x. entry or re-entry. 

An entry with M » M x followed by re-entries with M « M-, 

...,M e , M 1 < M 2 < ... < M e# requires essentially the same 

computing time as a single entry with M « M . 

e 

Method 

The k^ entry produces the following results: 

N N 

(i) Compute c Q - - ( £ w ± x ± )/( ^w i ). 

1 1 

Set P 1 (x ± ) m x ± + c Q for i » 1, ..., N. 
Set P (x i ) . 1 for i . 1,..., N, and set j « 1. 
Compute (wp^A . 
Compute HpjII 2 . 

Exit if j - M x £ 0j otherwise proceed to the next step, 

i2 



(li 
(iii 

(iv 
(v 

(vi 
(vii 



(viii 

(ix 

(x 

(xi 



Compute dj . - I IPjIIVI IPJ.J | ! 

begins here.) 

Compute fxp, I # 

Compute (xp^p.). 

Compute Cj = - (xp^p^/j | Pj |j 2 , 

Compute |xpj + d.p ± \ . 



(An x ± re-entry 
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(xii) Compute (p J+1 } - ^ jPj J + f^ + djPj-1 j . 
(xiii) Increase j by 1, and recycle beginning with step (iv). 

The y A entry produces the following results: 

(i) Compute {w^y^ I . 

(ii) Set ||y - V a,p 2 - ||y|j 2 , and set J-l « -1. 

(Hi) Compute (y,pj. (A y ± re-entry begins here.) 
(iv) Compute a^ » (y>Pj)/| |Pj| | 2 . 

(v) Decrease ||y- y a jPj || 2 byaj(y, Pj ). 

(vi) Increase J-l by 1. Exit if (j-l)-M £ 0. Otherwise, 
recycle beginning with step (ill). 

Notes 

(1) J271, J272, and J273 are slaves to J305 and hence must 
be assigned locations prior to the loading of this program. 

(2) The program makes references only to the interpreter 

of the Floating Point System and to that as region P. Region P 

must be assigned a location coinciding with the first word of 

the interpreter prior to the loading of this program. 

N 

(3) IIP II 2 - I w ± 

i 

(4) See the J306 write-up for some timing and accuracy 
samples . 

(5) Good results should not be expected unless the number 
of distinct Xj exceeds M . 
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J305 Storag e 

Region As AOOO - A018 + 3M 
Region B: BOOO - BOOO + (14+3 )N - 1 
Program : Ul words (J305E001 - J305EU1) 
Total storage Including Slav.. . intend, t^^, 

Region A (the same) 

Region B (the same) 

Program: 260 words 

Lattice Diagram Describin g Haatei-flimr* Relations 



J271 




J273 



J305 



John I. Derr 
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J306P ORTHOGONAL POLYNOMIAL LEAST SQUARES WITH WEIGHTS 



J306P is an absolute binary assembly of J305E together 
with J271-3, J290, J292, J240, J242, J244, and a program which 
loads, computes and prints in a manner to be described. To use 
J306P form a deck consisting of 
(1) one blank card 



(ii) 


J140A 






(ill) 


J135A 






(iv) 


J306P 






(v) 


data 






(vl) 


2 blank 


cards 




Header Card Format - 013 Style Input: 


pos 


(1) 






pos 


(2) 


S 


J + if an entry 
\ - if a re-entry 






EXP 


blank or zero 






MANTISSA 


M 


pos 


(3) 


S 


|+if x ± 
1- lf *1 






EXP 


blank or zero 






MANTISSA 


N 



pos 



w 



< and pos (3) < if the printing of x,, 

y 1# p(x ± ), r ± , and Lv ± 2 is to 
be suppressed. 

< and pos (3) £.0 if the sheet eject prior 

to the printing of the x^ header 
card is to be replaced by skipping 
4 lines. 



^0 



otherwise 



pos (5) 



< 
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f if » 0, proceed aa in J293F. 

if f and pos (3) ;> 0, then following 

the printing of the x i header card 
load (wj, space printer two lines, 
and print /wvL then proceed as in 
J293P. 



V 



Data Card Format 



If pos (2) £ and pos (3) £ (pos (3) < 0) for a header 
card, then N values of x, (y^) will be loaded 6/card beginning 
with pos (1) of the next card. The card containing Xj, (y N ) must 
have a 12 punch in col. 80. Upon loading the latter card an Xa. (y^) 
entry to J305 occurs with M (M ) « M. If pos (2) > 0, pos (3) > 0, 
and, in addition, pos (5) \* 0, then N values of w. will be loaded 
6/card in the same manner. 

Ordering of Header Cards and Data Cards 

A set of number pairs (x. , y,) is specified by an x, header 
card with pos (2) £ followed by x^ data cards and a y, header 
card with pos (2) J> followed by y, data cards. The x^^ cards 
must precede the y. cards. If pos (5) \> for an X, header card, 
then the w i data cards must be inserted between the header card and 
the x, data cards. In the case of re-entries no data cards follow 
the corresponding header cards. See the J305 write-up for a dis- 
cussion of re-entries and a many-one correspondence between the 
sets jy^ and (x^ju (wj(« 

Printing 

The page is ejected (the page is spaced four lines) following 
the reading of each x* header card if pos (k) J> (<0). The page 
is spaced one line following the reading of each y, header card. 
In the case of an tl, {yA header card the contents of 
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pos (1) - (5) — poa (1) - (4) — of the header card are printed 
immediately thereafter. The page is spaced two lines prior to a 

y i entry or re-entry. Following that entry 
M 

I I y " Y. a J P j I' 2 ls P rinted in the *2 field * Following the 
j<*0 

calculation of b Q , b^ ..., b^. the printer is spaced one line 

and the [b,\ are printed 8/line. Then if pos (4) £0, the printer 

is spaced two lines, and the program computes 
M i 

p ( x i) * L. a jPj( x i)# r i '" P( x j_) - y ± » and ^ r k 2 , and prints 
J*0 k«l 

i 
3^, y ± , P(x ± ), r i# and ^T r k 2 in positions x^ ..., x 5 for 

k-1 

i » 1, ..., N. An illustrative printing layout follows i 

- *i «*« ^a x ji x c • • . 

ID + 00 3 + 00 5 + 00 — + 00 1 



two spaces 



w l w 2 w 3 w 4 w 5 



one space ID + 00 3 -00 5 + 00 
two spaces 3 

j«0 



one space 



a a l a 2 a 3 
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two spaces 


*1 
*1 




X 2 
y l 






x 4 
r l 


X 5 

-x 2 




X 2 




y 2 




P(Xg) 


r 2 


r l 2 + r 2 2 




■*3 




y 3 




P(x 3 ) 


r 3 


2 2 2 
r l + r 2 +r 3 




x 4 




y 4 




P(x 4 ) 


r 4 


2 2 
r A + ... +r^ c 




x 5 




y 5 




P(x 5 ) 


r 5 


2 2 
r^ + ... +r 5 ^ 


Notes: (1) 


M £25, 


N < 


i 90, 


and N( 


M+3) < 


1952 must 


hold. 



(2) The number of distinct x, should exceed M. 

Timing and Accuracy 

(1) The Legendre polynomials on [o,l] with N « 21 points, 

0(.05)1 yielded the following information operating in the SD mode: 



M 



Accuracy 



1 


2 


1 


., \. j; 

l 


7 


9 


2 


5 


3 


l 


7 


8.8 


3 


8 


4 


l 


8 


7.2 


4 


12 


4 


2 


8 


6.8 


5 


14 


5 


2 


9 


6.1 



The times in seconds under x. entry to print inclusive are 
exclusive of loading times. The accuracy refers to the number of 
correct SD in the least accurate of the coefficients. 

(2) With the duplication of the points 0, .05, .5, .95, and 1 
(i.e. N o 26), the following results were obtained assuming 
entries with M « 5 have occurred previously: 
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J307A CLEAR THE DRUM 

J307 is a one card self-loading routine which clears the 
12,288 words of the Johnniac drum to zeros and effectively presses the 
load button by executing the sequence of instructions. 

100 0000 101 0000 
010 0000 
HSS is not cleared. 

J307 may be modified to preset every word on the drum to 
any desired bit pattern by punching the 12* s row right of J307 with 
the pattern. 

Note: J307 should be placed ahead of JlUO if it is necessary 
to have HSS cleared to zero before loading a program deck. 




im 



M. I. Bernstein 
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J308A OCTAL DRUM DUMP 

J308 is a self-loading routine which will print specified portions 
of a band on the drum in octal. The printed format is band address followed 
by up to k drum, words. Uncalled words are not printed. Specification 
of drum information is made via a control card which must contain a legitimate 
drum control word (see Johnniac manual if in doubt) in the 9's row left. 
A control card with 9«s row left = 000 0000 000 0000 will terminate 
dumping. 

J308 occupies the first 208 cells of HSS plus the largest block 
called from the drum - there is no recovery procedure to restore the lost 
portions of memory. 

Each specified block starts a new page of printing headed by 
the control card information in octal. 

The deck is made up as follows: 
J308A 

control cards 
3 blank cards. 

It is suggested that J308 not be used as a console routine, 
but that the user provide a complete deck with control cards inserted instead 
of sending just control cards to the operator, Program available as J308A. 



M. I. Bernstein 
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J309E CONVERSION PROM GEOGRAPHIC TO UTM COORDINATES 



This program converts the latitude and longitude in degrees 
and minutes of a point on the earth's surface to the UTM zone 
number and the UTM northing and easting in 100 meters. The 
point should have a latitude from 20° to 60°, and it must have 
a zone number between 10 and 19 inclusive. Any point in the 
continental component of the United States containing Los 
Angeles satisfies these requirements. 

Use: Form a deck of cards as follows: 



(i) 


one blank card 


(ii) J140A001 


(iii) 


- X267A001 


(iv) 


J299F001 - J299F097 


(v) 


»-X267A002 - X267A038 


(vi) 


- J309E001 - J309E070 


(vii) 


J27^E001 - J274E026 


(vinr 


-J309E071 


(ix) 


J269E001 - J269E010 


(x) 


^ J309E072 - J309E140 


(xi) Data cards 


(xil) Two blank cards. 


Hit load. 


Data Card Format: 



T^TTxt^rt^o , 



For each point to be oonverted punch a card as follows: 
59 — > columns 10-11, 22-23, 34-35, 46-47 
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longitude in degrees — > columns 18-20 

longitude in minutes — > oolumns 31-32 

latitude in degrees — > oolumns 43-^4 

latitude in minutes — > columns 55-56 

ID (floating point) — > position 5 of floating 
point data form 

Print Format ; 

The sheet is ejeoted prior to printing for the first 
point. Following the loading of a data card the information 
in positions 1-5 of the input data form is printed in posi- 
tions 1-5 of the print format. On the next line, the following 
information will be printed: 

UTM zone in the two low order digits of the 
mantissa in position 1; 

UTM northing in the five low order digits of the 
mantissa in position 2; 

# 
UTM easting in the four low order digits of the 
mantissa in position 3 J 

contents of input position 5 in position 4; 

00.000000000 in position 5; 

AX in position 6; 

A^> in position 7; 

Aq in position 8. 
The sheet is spaoed one line following the second line of 
printing for a point. 



The easting is augmented by the false easting of 5000. 
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Punch Format ; 

Following the printing of the second line for a point, 
the information in positions 1-4 of the second line of 
printing is punched in positions 1-4 in the floating point 
form. 

Method ! 

The method U3ed is described in [l] . A USE program 
based on the method is being submitted in the near future. 
See [2j. Let X denote the longitude in radians and + the 
latitude in seconds. Let A* » * - * and A^> « ^ - $ , where 
X is the longitude for the central meridian of the zone in 
question and 4> lB 5°° or 30° (converted to seconds) depending 
on whether 4> ;> 40° or 4> < 40°, respectively. 

The zone number is computed as 19 - (7v-66)/6. The zone 

number is in turn used to pick the corresponding entry in a 

table which yields X Q . Compute 
8 

Aq «= 2_ Ajc ( A 4>) » where 
k~l 

A^ is stored in QDOO + k + $ Q in the program. Next compute 

7 

N + IE - a Q + ie r + Y_ *k ( Aq + ***)*» 

k-1 

where ^ is stored in Uooo + k + $ Q in the program, e r = 5000, 

N =.UTM northing in 100 meters, and E » UTM easting in 100 meters. 
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J310E 2 SOLUTION OF A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS - 
FLOATING POINTT 



J510 solves a set of differential equations with the following 
call sequence: 

a 020 a 010 

a+1 d 

a+2 Return (outside floating point control) 
where d is the location of the first word of the auxiliary subroutine. 
The following library region bases must be designated before 
input of this subroutine in tne following manner: 
Region Origin Use 

D a The numbers in a+i are the variables y. (i=0, ..., n-1) 
Originally the Initial values are placed here. 
The origins of regions E, F, and G are used as preas signed 
parameters by J310. 

E b-a The numbers in b+i are the scaled derivatives, 

hy' , calculated by the auxiliary subroutine and 
and b :* a+n-1. 
F c-b Locations c+i are used as temporary storage for 

this subroutine. These locations must be cleared 
to zero before this subroutine is entered for the 
first time, c > b+n-1. 
G c+n n is the number of differential equations to be solved. 



1 This routine is a floating point version of J126. For a description 
of the method see the write up for J126. 

2 This program is J220E aB modified for the revised Johnniac Floating 
Point System. 
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Reglon A (erasable) : k words 
Symbolic Code: k5 words 



Marvin B. Shapiro 
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J311E* ORTHOGONAL POLYNOMIAL LEAST SQUARES WITH WEIGHTS 

Given a set of points x^ ..., x N , a set of non-negative 



points w x , . . ., w N satisfying V w ± > 0, and an integer M x £ 1, 
the program computes 

(i) c, for j « 0, 1, . .., M x and d . for j = 1, . . .M x , 
(ii) p,(x. ) f or 1 < i < N and < J < M x , and 

(iii) (Pj»Pj) for J = °> 1 » -> n x > 

N 
where (f ,g) » V w ± f(x jL )g(x 1 ) for any functions f and g 

defined on /x ± ] , and the (p.) are defined by 

p Q (x) = l,p 1 (x) <- x + c Q , and for J £ 1 

p j+l (x) " ( x+c j)Pj( x ) + d jPj-i( x) » 
and (Pj*Pj) - if J / k. 

If, in addition, a set of points y^ . . . , y N is given, the 
program computes a Q , a ± , . . ., a„ , provided M^. < M x - The la^j 
minimize 

M 

""-£ 

y(x jL ) - y ± 



M 



a j P J 



ir = (y- £ 



y 



a,P,, y 



fj 



J-o 



J-0 



a^p,), where 



Calling Sequence (x.^ entry) 



x 



a 020 

a+1 M. 

a +2 

a +3 Control returns here 

* J311E is a corrected version of J305 E. 



a 


010 


J311E001 


N 


A x 


L(x,) 




A w 


L(w x ) 
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Calling Sequence (y entry) 



P 020 ^ 010 J311E106 
P+ 1 ^ L(a Q ) A y L( yi ) 

fi+2 Control returns here 



The above notation Is defined by L(x. x ) « L(*i) + A , 

L(w 1+1 ) « L( Wi ) + A w , L(y 1+1 ) . L(y ± ) + Ay, and L(a J+1 ) = L( aj ) + 1 

Application : The double entry is motivated by the case where 
many sets of ^yj correspond to one set of IxS and lw ± \ 
Following an x* entry 

(i) (Pj'Pj) w111 be ln AlQ + 3J for j=0, 1, . .., M , 

(ii) Cj will be in A19 + 3j for J-0,1, . . .,M X , 

(ill) dj will be in A20, + 3j for J-l, . ..,J* X , and 

(iv) Pj( x ± ) will be ln BO + (j+l)N +1-1 for , 

l<i<N and £ J < M . 

A consistent x. entry must precede the first y. entry and 

M £ M x must always hold. Following a y. entry 

l|y - Y, a j p j" 2 w111 be in M ^- 



J=0 



Let p(x). « 2] a j p j( x )* Assuming that a double entry 

to J311 has occurred and the la\ */cA, and /d A are available, 

p(x) can be readily computed by linking to J291. 

Alternatively, let b Q , b ][ , ..., b M denote the 

y I M „ I 
coefficients of p(x) with respect to the basis <l,x, ...,x y > , 
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! V < M y 
i.e. y* b,x J «* y\ a.p.(x). 

Then the jb . I can be obtained by successive links to J290 and 



J292. In case M x = M , the following sequence of links is 
permissible. J311 (x ± entry), J290, JSUE^ entry), and J292. 
The first two links are performed for x, entries and the last 
two for y 1 entries. As a result in the case of a many-one 
correspondence between the sets iy.l and {x,lU | w i} > onl y one linlc 
to J 311 is required. 

An additional flexibility is furnished by a convenient 
arrangement for re-entries, whereby given a larger value of M 
the calculation proceeds from where it left off at the smaller 
value of M. A typical application of re-entries is the 
following: Suppose we are given the set I w . \ and a set of 
number pairs, {( x i» y-j.) : i " 1,...N }, and £>0, and that we seek 
the smallest l^L. such that 

or we seek the smallest ML such that 

" y " L a J p j'^ ^ " y " L a J p j"* 

An x, (y i ) re-entry is effected by 

(i) storing M (M ) in the left address of A16, 
(ii) storing ot+2 (p+2) in the left address of J311E065, and 
(iii) transferring control to the left of J3HE066, (J311E126) 



J3HE 

8-5-59 
•if. 



Re-entries are governed by the following rules: 

(i) An entry must precede the first corresponding re-entry, 
(ii) M x ( M y ) must increase with each x ± (y i ) re-entry, 
(iii) With the exception of A15, Al6, and A20, cells A12 
- A18 + 3M X , BO - BN(M x +2) - 1, and those cells occupied by 
( a.l should not be read into between entries. 

(iv) My £ M x must be valid where M refers to the last 
(and largest) value prescribed for an x, entry or re-entry. 

An entry with M » M ][ followed by re-entrie3 with M » M p , 
...,M e , M 1 < M 2 < ... < M g , requires essentially the same 
computing time as a single entry with M « M . 

Method 

The x ± entry produces the following results: 

N N 
(i) Compute c Q - - .( £ w j. x i)/( X! W i^* 

1 1 

(ii) Set P 1 (x 1 ) » x 1 + c Q for i « 1, ..., N. 

(iii) Set PqU^ » 1 for i - 1,..., N, and set J - 1. 

(iv) Compute (wp,\ . 

(v) Compute | |p, | | 2 . 

(vi) Exit if J. - M x £. 0; otherwise proceed to the next step, 

(vll) Compute dj - - I IPjl iVl |Pj_il l S « (An x 1 re-entry 
begins here . ) 

(vili) Compute jxp, I . 



(ix) Compute (xp,,p.). 

(x) Compute Cj » - (xp^Pj)/) jp^ | | 
(xi) Compute Ixp. + d.p. , ] . 



2 



. 
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(xli) Compute {p j+1 } - Jjc jPj \ + fa + d jPj-1 j . 
(xiii) Increase j by 1, and recycle beginning with step (iv). 

The y. entry produces the following results: 

(1) Compute {w^y, I . 

(ii) Set j|y - V a,p 2 |j« ||y|| 2 , and set J-l « -1. 

(ili) Compute (y,p,). (A y. re-entry begins here.) 
(iv) Compute a^ « (y,Pj)/| |pj| | 2 . 

V 

(v) Decrease | |y - y a jP j II byaj(y*Pj)' 

J"0 

(vi) Increase J-l by 1. Exit if (j-l)-M > 0. Otherwise, 
recycle beginning with step (iii). 

Notes 

(1) J271, J272, and J273 are slaves to J3H and hence must 
be assigned locations, prior to the loading of this program. 

(2) The program makes references only to the interpreter 

of the Floating Point System and to that as region P. Region P 

must be assigned a location coinciding with the first word of 

the interpreter prior to the loading of this program. 

N 

(3) ||P I| 2 - E w i 

1 

(4) See the J312 write-up for some timing and accuracy 
samples . 

(5) Good results should not be expected unless the number 
of distinct x ± exceeds M x . 
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J305 Storage 

Region A: A000 - A018 + 3M 
Region B: B000 - B000 + (M+3)N - 1 
Program : 142 words (J311E001 f J311E142) 

Total Storage Including Slaves - Interpreter Excepted 

Region A (the same) 
Region B (the same) 
Program: 261 words 

Lattice Diagram Describing Master-Slave Relations 



J271 




J273 



J3H 



John I. Derr 
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J312P ORTHOGONAL POLYNOMIAL LEAST SQUARES WITH WEIGHTS * 

J312F is an absolute binary assembly of J311E together 
with J271-3, J290, J292, J240, J242, J244, and a program which 
loads, computes and prints in a manner to be described. To use 
J312F form a deck consisting of 
(I) one blank card 
(ii) J140A 
(ill) J135A 
(iv) J312F 

(v) data 
(vi) 2 blank cards 



Header Card Format - 013 Style Input: 



pos 



pos 


(1) 






pos 


(2) 


S 

i 


+ if an entry 






- if a re-entry 






EXP 


blank or zero 






MANTISSA 


M 


pos 


(3) 


S 

< 


"+ if x ± 
." lf y i 






EXP 


blank or zero 






MANTISSA 


N 



CD 



< and pos (3) < if the printing of x. , 

y i' p ( x i)' r i' and £ r i ls to 
be suppressed. 

< and pos (3) ^ if the sheet eject prior 

to the printing of the x^ header 

card Is to be replaced by skipping 
4 lines . 



V ]>' otherwise 
* J312P is a corrected version of J306P. 



pos (5) 



J312P 
7-31-39 
-2- 



/ if • 0, proceed as in J293F- 

if 4= and Pos (3) £ 0, then following 
J the printing of the x, header card 
load / w. J> , space printer two lines, 
and print J w. I , then proceed as in 
J293P. <• ' 



Data Card Format 



If pos (2)2 0and pos (3) 2. ° (p os (3) < 0) for a header 
card, then N values of x ± (y^ will be loaded 6/card beginning 
with pos (1) of the next card. The card containing x N (y N ) must 
have a 12 punch in col. 80. Upon loading the latter card an 
x ± (y 1 ) entry to J311 occurs with M x (1^.) = M. If pos (2) £ 0, 
pos (3) ^ 0, and, in addition, pos (5) 4 0, then N values of 



w 



i 



will be loaded 6/card in the same manner. 



Ordering of Header Cards and Data Cards 

A set of number pairs (x,, y^) is specified by an x ± header 
card with pos (2) ^0 followed by x.j_ data cards and a y 1 header 
card with pos (2) ^0 followed by y^ data cards. The x ± cards 
must precede the y ± cards. If pos (5) 4 ° for ^ x i header 
card, then the w. data cards must be inserted between the header 
card and the x. data cards. In the case of re -entries no data 
cards follow the corresponding header cards. See the J311 write- 
up for a discussion of re-entries and a many-one correspondence 
between the sets < y ± > and < x^^ I {^J J w^ I . 

Printing 

The page is ejected (the page is spaced four lines) following 
the reading of each x ± header card if pos (4) ;> (<0). The 
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page is spaced one line following the reading of each y, 
header card. In the case of an x 1 (y^ header card the contents 
of pos (1) - (5) -- pos (1) - (4) -- of the header card are 
printed immediately thereafter. The page is spaced two lines 
prior to a y ± entry or re-entry. Following that entry 

II y " T. a jPj II ls Pointed in the x 2 field. Following 

the calculation of b Q , b J[ , ..., t> M the printer is spaced one line 

and the i b^ I are printed 8/1 ine . Then if pos (4) ^ 0, the 
printer is spaced two lines, and the program computes 

M i 

P(X±) = i«0 Vj^i^ r i = P(x i } " y i' and £ v k 2 > and P rints 

i p 
\> y ± j P(x ± ), r ± , and £ . r^ m positions x,, . . . , x. for 

1=1, — , N. An illustrative printing layout follows: 





x l 


X 2 






X 3 






x 4 




x 5 




two spaces 


ID 


+ 00 


3 


+ 


00 


5 


+ 


00 — 


- -f 


00 


1 


one space 


w l 
ID 


W 2 
+ 00 


3 


_ 


W 3 

00 


5 


+ 


w 4 
00 - 




W 5 




two spaces 
one space 


a o 


Ny - 
a i 


3 




a J p J 

a 2 


II 2 




a 3 








two spaces 
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x l 


X 2 


X 3 


x 4 


X 5 


x l 


y l 


p^) 


r l 


r 2 
• r l 


X 2 


y 2 


pU 2 ) 


r 2 


2 2 
r l +r 2 


x 3 

x 4 

X,- 


y 3 

y 5 


p(* 3 ) 

p(x^) 
P(» 5 ) 


r 3 
r 4 
r 5 


2 2 2 
r l + r 2 + r 3 

r + . . . + r^' 

v. + . . . + r* 
1 5 



Notes; (1) M £ 25, N < 90, and N(M+3) <; 1952 must hold. 
(2) The number of distinct x, should exceed M. 

Timing and Accuracy 

(l) The Legendre polynomials on [0,1] with N « 21 points, 

0( .05)1, yielded the following information operating in the SD mode: 



M 


x. entry 


y l 


entry 


1 


2 




1 


2 


5 




3 


3 


8 




4 


4 


12 




4 


5 


14 




5 



compute (b.1 



Print 


Accuracy 


7 


9 


7 


8.8 


8 


7.2 


8 


6.8 


9 


6.1 



1 
1 

1 

2 
2 

The times in seconds under x. entry to print inclusive are 
exclusive of loading times . The accuracy refers to the number of 
correct SD in the least accurate of the coefficients. 

(2) With the duplication of the points 0, .05, .5, .95, and 1 
(i.e. N *» 26), the following results were obtained assuming 
entries with M * 5 have occurred previously: 
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M x 1 


re-entry 
18 


y. re-entry compute 
4 5 


b j 


Print 


10 


14 


15 


18 


4 9 




18 


20 


18 


4 16 




22 


25 


18 


4 25 




25 


Program: 


103 cards 


(J312F001 - J312F103). 
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J-313A Variable Format Input -Output Package 



J-313A is a routine for providing flexible format of card 
input and card output and makes use of X-267 (JOHNNIAC Style E 
Loader) as a self-contained subroutine. It makes use of format 
cards to define the fields on the input and output cards. 

There are three types of format cards, each format being 
identified by the condition of column one as follows: 

FORMAT CARD COL. ONE 
Read < No identifying punch 

Punch "if" 

Blank-out "0" 

A field is defined by punching a "l" in each column of the 
field. The low order position of the field must be underpunched 
with a "2" for both punch and read format cards. 

It should be noted that field definition does not interfere 
with the identification used in column one. Following are a few 
examples : 



READ FORMAT 




COLS . : 


1 


2 


3 


4 


'5 6 . 


Example I 


punch: 




1 


1 


1 
2 






Example II 


punch : 




1 
2 


1 
2 


1 


1 


1 
2 


Example III 


punch : 








1 


1 
2 




PUNCH FORMAT 
















Example IV 


punch : 




1 
2 
4 






1 


1 1 
2 


Example V 


punch : 




4 


1 


1 


1 


1 
2 
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BLANK-OUT FORMAT 




COLS . t 


12 3 4 5 6... 


Example VI 


punch : 






11 1 


Example VII 


punch : 




11 



The programmer writes hla complete program using JOHNNIAC 
Style E instructions, some of which will be short calling sequences 
to instruct J-313 to read, print, or punch according to the prepared 
format cards. (Such a short calling sequence might look like the 
following: -•"* 

a ' 020 $ 010 Z 10 
a + 1 control returns 

The use of such subroutines will be explained later.) His 
complete program should be placed between card 122 and 123 of 
J-313. Card 122 sets the counter ($) to 2000)g, and card 123 is 
a period (.) card (therefore the regular period card should be 
omitted), and transfers control to that section of J-313 which will 
read the format cards. Format cards (placed in any order) must 
follow card 123. The last format card must be followed by a card 
containing an 8-punch in column one. This card causes a transfer 
of control to location 2000) g which is the beginning of the program, 
however, if H-l is on, a 13x stop at NIA « 6504)g will occur before 
this transfer is made. Hit GO to continue. 

The loader routine contained in J-313 is stored in the region 
0000)o through 1127)g making it impossible to use this region until 
after loading is complete. J-313 uses this region and more (up to 
1777)3) for the com P llln S of format card subroutines and the 
conversion of input/output data which takes place after loading. 
Generally then, it is necessary that the programmer not attempt 
to use portions of memory below 2000) g. 
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Flexibility In operation of the program is under control of 

the T-switches as follows: 

T-l ON l) One data card read; one data card 

punched 

2) Words available for use by the 
programmer are from 2000) p to 
6107 ) 8 . ° 

OFF l) Fifty data cards read; fifty data 
card 3 punched. 

2) Words available for use by the 
programmer are from 2000) o to 
3^07 )q. 

T-2 ON 80-80 printout instead of punching 
OFF 

It might be pointed out that when using T-l off, the routine 
is expecting 50 data cards to be available for reading and then 
after computing on these fifty cards, it will punch 50 cards. If 
the punch block of fifty cards is not filled up (such as when there 
are 95 data cards), then some action must be taken such as filling 
up the reader with cards of the type which the programmer knows 
will eventually cause punching, or to cause dummy numbers to be 
generated. For more information on this point, see the explanation 
of the punch format on an X-72 card at the end of this write-up. 

J-313 interprets the format cards and from each one compiles 
a series of calling sequences into a subroutine. Each card is 
numbered sequentially (internally, only) by J-313 beginning with 1; 
the number will correspond to the number of the subroutine 3ince 
exactly one subroutine is generated for each format card, and it 
is generated in the order in which its corresponding format card 
is placed in the program deck. 
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Placement in the deck, however, in no way governs the order 
in which they may be referenced; any format card may be referenced 
at will. 

A directory to these subroutines is formed and assigned 
region "Z. "Z l" is the directory number for the subroutine 
corresponding to the first format card, "Z 2" the directory 
number for the subroutine corresponding to the second format card, 
etc. "Z 0" is the directory number for the subroutine which causes 
a card to be read, and puts the information from the card in 
position for conversion according to one of the format cards and 
corresponding calling sequence in the "Z" region to be determined 
by the programmer. 

There are some limitations on the number of format cards, 
and since no check is made to determine if available space is 
exceeded, some approximate guides are provided here, and generally 
must be considered together for each problem in determining if 
available space is exceeded. If computation indicates the limit 
is being reached, the programmer should make some independent 
checks for himself. 

1. Number of fields 427 

2. Number of format cards 31 

3. In addition to these maximum limitations, the words 
available for the calling sequences compiled as a 
result of each format card are from 1000)o through 
1777 )g. If a « the number of defined fields on a read 
or punch format card, and b « the number of undefined 
fields on a read or punch format card, then the number 
of words (x) required by a read or punch format card 
would be = a + b + 5. 

4. The number of words (y) required by a blank-out format 
card is 4. 
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The sum of the X's for the read or punch format cards added 
to the sum of the Y's for the blank-out format cards must therefore 
be less than or equal to 512. 

The fields of the read and punch format cards are al3o numbered 
(internally, only) beginning with 1 for the first field of the first 
format card, through "n" for the last field of the last format card. 
Blank-out format cards are not included in this numbering. 

Thereafter, whenever the subroutine for a read format card 
is "fired", the contents of each field is converted into a binary 
integer and placed in memory at "G + the number of the field." 
For a punch format card, each binary number in memory at "0 + the 
number of the field" is converted into a decimal integer and placed 
in the field. Leading zeros are included and all information 
previously in the field is cleared. This process essentially makes 
the JOHNNIAC a decimal machine. Ten decimal digits are usually the 
maximum for any field. Information in a field containing an 
11-punch over the low-order digit is converted into a negative 
number and, conversely, when a negative number i3 punched out it 
contains an 11-punch over the low-order digit. A field containing 
a 12 -punch over the low-order digit will be converted as a positive 
integer; in the absence of either an 11-punch or 12-punch, the 
field will be converted as a positive integer. 

All. punching of cards except the last is echo checked. If 
an error is detected, a 13X stop at NIA - 7330) Q will occur with 
the error card on top in the punch stacker. This means that the 
error indication does not occur until aftar two more cards have 
been punched. To get full echo checking and indication at least 
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two blank cards should be punched after the last good card. After 
an echo check error stop, hit GO to continue. 

The following regions are defined by J-313. 

1. G « 0124) Q (Maximum is G427 = 0777)g) 

The contents of the fields on the format cards are read 
into and punched (printed) from this G region. 

2. X « 0000) q (Maximum is X 80 = 0120)g) 

This X region has a cell for each of the 80 columns (X 
16 for column 16) of an input card. A cell in- this region 
will be non-zero if the corresponding column contains 
either an 11-punch or a 12-punchj zero if the corresponding 
column does not contain either an 11-punch or a 12-punch. 
Punching data cards with 11 or 12 punches in particular 
columns can give the programmer "flags" in this X region 
to enable him to choose in his code the appropriate 
format card for reading or punching (see example at end 
of write-up where X 72 determines format card). 

3* K m 7720)g (Maximum is K 47 = 7777) Q ) 

The K region is the location of constants used by J-313. 

The following are listed for what use they may be to the 

programmer : 

K 1 000 0001 000 0001 
K 14 000 0000 000 0001 
K 20 000 0000 000 0010 
K 21 100 0000 000 0000 
K 22 077,7777 777,7777 
K 29 000 0001 000 0000 

4. Z « 7640)q (Maximum is Z 31 - 7677)g) 

The Z region is the directory to the format card 
subroutines. The following instruction word will 
always cause a card to be read, and prepared for 
conversion according to one of the read format 
cards : 

020 $ 010 Z 
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5. B » 7700) g (Maximum Is B 6 » 7706 ) Q ) 
(See note below.) 

6. C - 7710)g (Maximum Is C 6 - 77l6)g) 
(See note below.) 

NOTE: The B and C regions noted above are the regions where 
the Mouse Matrix is located for those who are familiar 
with the Mouse Input and Output routines. The instruc- 
tion in the description of the Z region above is 
essentially a calling sequence to the subroutine which 
causes a card to be read into Mouse Matrix (J160) . 
An example: 

Suppose that there are five format cards as indicated below: 

0000000001111111111222222222233333333334444444 77778 

123^56789012345678901234567890123456789012.3456 6789O 



/ 


11111 111111111 

2 2 2 


111 11111111 
2 22 


1111 
2 


/ 


11 11111 
2 2 


1111111 111111111 
2 2 2 


1 

2 


/o 


1111 11111111111 


11 11— 


— 1 111 



/ 



1111111 11111111 11 1111111111 1111 —11111 

2 2 2 2 2 2 2 



/5" 



lllll 



ill ill 



ill 



1- 
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The first two cards are read format cards. The third and 
fifth are blank-out format cards and the fourth is a punch format 
card. Also suppose that if a card contains an 11-punch in 
column 72 that it should be converted by using format card 1 and 
that if it does not contain an 11-punch in column 72 it should be 
converted by using format card 2. 

The following instruction causes a card to be read: 

a 020 $ 010 Z 
a +1 control returns 

The following instructions determine whether there is an 

11-punch in column 72 and convert it accordingly: 

a 023 X 72 001 a + 3 

a + 1 020 $ 010 Z 2 

a + 2 010 a + 4 

a + 3 020 $ 010 Z 1 

a + 4 control returns 

If the Z 1 subroutine was fired, fields 1 thru 7 of the card 

would be converted into binary and placed in 1 thru -0 7 

respectively. If the Z 2 subroutine was fired, fields 8 thru 

13 of the card would be converted into binary and placed in 

G 8 thru G 13 respectively. 

The following two instructions would cause fields Ik thru 20 

to be cleared, would cause the numbers in G 14 thru G 20 to be 

converted into decimal and placed in the respective fields, would 

cause blanks to be placed in all other columns, and would cause a 

card to be punched : 

a 020 i 010 Z 5 (blank-out) 

a + 1 020 $ 010 Z h (convert and punch) 

a + 2 control returns 



Bill Sibley 
Chuck Smith 
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J315A J'ACASS II" (JOHNNIAC ASSEMBLER) 

INTRODUCTION 

This write-up contains the description of a coding 
language ror the Johnniac and the associated assembly 
■: cnventionr; . It is :\:;i intended tc be a description of 
t>~e jonnmac ■:■■:- a:i instruct ion manual on coding or 
programming. For a description of the Johnniac see 
DL305S and D3518. 

Though J'ACASS does not contain all of the features 
and capabilities that the current state of the pro- 
gramming art is capable of generating, it is felt to be 
a significant improvement over the systems currently 
available on the Johnniac. 

J'ACASS is a two pass, load and go "symbolic" 
assembler. Briefly, pass one of the assembly process 
reads each block of a program and creates a label table, 
and stores the lines of code for pass two. Pass two, 
transforms each line of code from its symbolic form into 
absolute binary and stores it on the drum for subsequent 
loading and execution. Concurrently, pass two generates 
a program listing, displaying on each line the absolute 
and symbolic code, and an absolute style D binary deck of 
the block. J'ACASS will produce: 1) a reloadable label 
table (see p. 13); 2) an absolute deck for each program 
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block in style D; 3} a label map for each block; 4) a full 
assembly listing; and 5) a J'AM'D version of any set of 
symbolic cards specified (see pg. 15). The assembler will 
accept as inputs: 1) "symbolic" instructions; 2) J'AM'D 
decks (3ee pg,. 15); 3) previously produced label tables (see 
{1} above); and 4} absolute binary decks in styles B, D and F, 

Blocks and Labels 

Certain capabilities have been built into J'ACASS which 
are intended to facilitate the combining of programs. Of 
prime importance in this respect is the ability to create 
program blocks with local labels. One may ignore the block 
structuring capabilities of the system with small, but 
possibly important, penalties. 

A block is a set of consecutive lines of code, any 
line belonging to, at most, one block. A label is an 
identifier for a line of code. It provides a means for 
referring to the line in an address field. (What is 
called a "label" here is often called a "symbol" or 
"location symbol" in other assemblers.) 

A program may be divided into various sized, semi- 
independent blocks, each block containing one or more 
routines or data sets. Each of the blocks is of one of 
three types depending upon how it is related to other 
blocks; it may be: 1) always referred to but never 
referring; 2) always referring but never referred to; 
and 3) referred to and referring. Type (l) blocks are 
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typically those routines called "closed subroutines" and 
data blocks. The type (2) category can be characterized 
by the master routine which directs or controls the 
activity of a program. Type (3) includes the rest of the 
multitude of routines. 

Within blocks of type (l) there are two kinds of 
labels: those that are used within the block only, and 
those that are associated with external reference points 
(enabling reference from outside to the routines in the 
block). The two kinds of labels are called "local" and 
"global." Local labels have significance within a block 
only j and global labels have meaning or signifcance be- 
yond the boundaries of the block. In type (2) blocks, 
then, all labels may be local, and in type (3) there are 
both local and global labels. 

One may divide the routines of a program into the 
three kinds of blocks referred to above. He must then 
order the blocks so that any one of them is assembled be- 
fore it is referred to by another. Generally speaking, 
those of type (l) must be assembled first, those of type 
(3) next, and, finally, those of type (2). 

One bit of care must be taken in structuring the 
routines of a program into blocks of type (2) — all of 
those routines whose addresses refer to each other must 
appear in the same block, and all of the non-global labels 
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in that block must be local to the whole block (not to one 
routine) and, therefore, unique. The meaning of this 
will become clearer after the presentation of the method 
by which the assembler actually handles local and global 
labels . 

J'ACASS Card Format (See Appendix A for a sample 

coding form. ) 

C l_4 Label (C-, designates a comment card if it con- 
tains an asterisk). 

C 5 Global label designator (*) . 

C 6-8 Left operation. 

Cg Listing format control (an asterisk indicates 

a new page), and indirect address field for Left 
address (indicated by a prime). 

C 10-17 ^ ef * address • 
C 19-21 ^-Sht operation. 

C 22 Indirect Address field for Right Address (indi- 
cated by a prime ) . 

Cg,, oq Right address . 

^1-80 Comments 

C 10 -30 Data field for certain pseudo-ops. 

The Character Set 

J'ACASS uses the character set common to all RAND 
keypunches. This set consists of the characters: through 
9, A through 2 + - * / $ = « . , ( ). The last eleven 
symbols will be called "punctuation marks." Thus we have 
ten numerals, twenty-six capital letters, and eleven 
punctuation marks. 
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Labels 



With few exceptions, any line of code may have a 
label. A label may be from one to four characters long. 
The first character of a label must be a letter or one of 
the following six punctuation marks: .,/)'=. 
Successive characters of a label may be numerals, letters, 
or punctuation marks with the exception of "+" and "-". 

Global labels are designated by an asterisk in 
column 5 of the coding line, no other distinction between 
local and global labels is made. When a global label is 
used in an address field, the asterisk is dropped. 

Operations 

Numbers appearing in the left and right operation 
fields are treated as octal (each digit is taken mod 8). 
Zero and blank are interchangeable in the operation fields, 
but in no other place . 

A complete set of mnemonics (see Appendix B) for 
the Johnniac machine instructions are provided. Those 
specified in the Johnniac manual are included as a subset 
with one exception: the mnemonic for the shift command 
074 is given in the Johnniac manual as SRH; this mnemonic 
has been usurped for another command, namely 057. 

Addresses 

Left and right addresses are composed as follows: 
1. A blank field which is equivalent to zero. 
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2. A string of from one to eight characters, the first 
of which is an asterisk is also equivalent to zero. 

3. A decimal integer (signed or unsigned) taken mod 2 12 . 
The absence of a sign is equivalent to the presence 
of a plus sign; a minus sign indicates the 2's com- 
plement . 

4. An octal integer (signed or unsigned) written as 
follows: a sign (if desired), a left paren, the 
digits of the number (each of which is considered 
mod 8), and a terminating blank or non-numeral. A 
right paren is aesthetically pleasing but not re- 
quired . 

5. A label. 

6. A label followed by a signed decimal or octal constant. 

7. The dollar sign ($), which designates the current value 
of the location counter. 

8. The dollar sign followed by a signed decimal or octal 
constant, which designates the appropriately incre- 
mented (or decremented) value of the location counter. 

No checks are made to determine the appropriateness of 
a particular address for the given operation. An address 
may begin in any column within the address field and is con- 
sidered ended by either a blank or the right limit of the field 

Indirect Addresses 

The assembler will provide the appropriate indirect ad- 
dress flag bit for either address field when it is flagged 
with a prime (or single quote mark) in the column between 
the op field and the address field — column 9 for the left ad- 
dress and column 22 for the right address. 

Pseudo-Ops 

There are two uses for pseudo-ops. The first is to 
specify constants for a routine; the other i3 to control 
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the assembling process. All pseudo-ops must appear in 
the left operation field of an instruction. 

There are three data specifiers, NUM, DEC, BCI, and 
BCT that function as follows: 

NUM or DEC are used to indicate that the characters 
in the Data Field constitute a numeric constant. The con- 
stant is converted by the assembler into one of three forms 
to fixed point binary, or to floating point decimal compa- 
tible with the JOSS programming system, or to octal. 

Fixed point conversion occurs when the Data Field con- 
tains either a signed or unsigned integer or a signed or 
unsigned mixed number, followed by an appropriate binary 
scale. A member of the first type is written as a string 
of digits in the Data Field with no Imbedded blanks. It 
is converted to a binary integer scaled at B=39. A mixed 
number is written in the Data Field as a string of digits, 
with a decimal point in the appropriate place, followed 
immediately by the letter "b" followed by a (signed or 
unsigned) decimal integer. Imbedded blanks cause errors. 
A positive scale indicates positioning of the number to the 
right of the Johnniac sign position. Thus, "1B2" in the 
instruction "DEC 1B2" appears as 001000... in the output 
program. Improper scaling in the sense of not allowing a 
large enough number of bits to accommodate the number (re- 
sulting in an overflow) causes an error message to be 
printed and the result of the "DEC" to be set to 0. 
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Floating decimal numbers may be written in one of two 
ways. Any mixed number (that is a string of digits and 
one decimal point) without a binary scale specified is con- 
verted to floating decimal. Any number followed by a 
decimal scale designated by an "E M followed by a signed 
or unsigned integer whose absolute value is less than 99 
is also converted to floating decimal. Imbedded blanks 
cause errors. If the resulting power of the floating decimal 
number is outside the range - 99 < P < 99 , the number will 
be set to zero and an error message printed. In both cases 
the binary representation Is truncated, not rounded. 

Octal is distinguished from decimal by punctuation - 
namely, enclosing the number in the data field In paren- 
thesis. Each digit within the parenthesis is taken mod 8, 
with the exception of the high order digit if there are 
fourteen digits In the number. Blanks may be included (and 
will be ignored) in order to separate subfields of an octal 
constant. If the constant contains less than fourteen 
digits, it will be converted as an integer scaled at 2~^9 , 
A minus sign to the left of the opening parenthesis will 
Indicate that the 2's compliment of the octal number Is re- 
quired . 

BCI is used to input binary coded Hollerith characters 
as they are converted by J»ACASS (see Appendix C). The 
argument to this instruction must be In the first six 
columns of the left address field. The characters in these 
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columns are converted and the result occupies bits 4 
through 39 of a machine word. The first two columns of 
the Right Operation Field are taken to form a four bit pre- 
fix placed in bits 0-3 of the word. The prefix is formed 
by taking the first character mod 2 and appending to it 
the second character taken mod 8. 

BCT is similar to BCI. It converts the first four 
characters of the left address, placing the result in bits 
4 through 27 of a machine word. A prefix taken from the 
first two columns of the Right Operation Field (in the 
same manner as described for BCI) Is placed in bits 0-3 
of the word. An address from the Right Address Field is 
placed in bits 28-39. The right address may contain any 
legitimate address combination. 

The pseudo-ops which control the assembly function, 
and some of the assembly processes, will now be discussed. 

SET is used to control the value of the location 
counter. When this instruction has a label, that label 
Is defined to have the value of the location counter prior 
to its modification by the SET instruction. The counter 
is set according to the left address of the instruction. 
The left address may be any legitimate address; however, 
using as the address a yet to be encountered label will 
cause the location counter to be set to zero and will create 
problems . 

The SET Instruction can be used to reserve a block of 
storage by designating an Increment for the location 



J315A 

7-20-62 

-10- 

Rev. 12-11-63 



counter In the Left Address Field. An instruction to do 
this would have the form "L SET $ + n" , where "L" is any 
label and n is an Integer of appropriate value . 

EQU is used to assign a value to a label. The value 
to be assigned is designated in the Left Address Field of 
the instruction. Any legitimate address may be used. Thus 
a label may be assigned the value of (or declared synonymous 
with) a constant, another label, etc. If the dollar sign 
is used as a part of the address of an EQU instruction, its 
value is taken not as that of the location counter where 
the EQU appeared, but rather as that which the location 
counter will have at the end of the block. 

An EQU may have as its address any other label in the 
block or any retained global label, without care as to the 
position of occurrence of the label with respect to the EQU. 
The exception to this is that forward reference must not be 
made to a label defined by an EQU. 

END terminates each block of code. When the assembler 
encounters an END, the following sequence of events takes 
place: On pass 1 the location counter (which has a value 
one greater than it had after the previous line of code) Is 
saved; the label table is sorted; EQU's are processed and 
their labels added to the label table; the label table is 
searched for duplicates and if any are found, they are 
printed with the error message "AMBIGUOUS LABEL"; if label 
output is not suppressed, a label map Is printed and the 
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global labels contributed to the table by this block are 
punched. Control then goes to pass 2. 

When the END Is again encountered on pass 2, the value 
of the location counter is compared to the value saved from 
pass 1. If they are different, processing stops and the 
the message "J'ACASS HAS ERRED" is printed. Otherwise, all 
local labels are purged from the label table, all conditions 
are set to normal, and reading of the next block begins. 

#.*.*. Control Cards 

#** is a special pseudo-op used to specify various other 
assembly control functions. The name of the function ap- 
pears In the left address and the first five characters of 
the name must be as they are given below (everything over 
five is for understandability only). This, by the way, is 
the only instruction for which the label field is ignored. 
It, therefore, should not have a label that is referred to 
in the program. 

The instructions in this set are divided Into two 
groups: conditioning and action instructions. 

The conditioning instructions are primarily used to con- 
trol the output of the assembler and may appear anywhere 
within the block for which they are to have meaning. They 
are written below as they should appear in a program. 

*** NQLIST instructs the assembler not to produce an 
assembly listing; it will not inhibit the printing of error 
messages. 
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#** N({)PUNCH inhibits the assembler from punching both 
the global labels for the block and the absolute style D 
binaries . 

*** N0LABELS inhibits the printing of the label map 
and the punching of global labels from the block. It is 
not redundant if NpLIST has been specified since the label 
map is printed independently of the assembly listing. 

The instructions which specify actions are of two 
kinds, those which act upon the label table and those 
which control other activities of the assembler. The 
label table instructions must be used with care. They are: 

*** DELETE . L. where ,! L" is a global label left in the 
label table from a prior block. "L" must appear in the 
right address. If there is no label "L M in the label table, 
the instruction is ignored. DELETE must appear before any 
instructions which have legitimate labels. 

**# E RASE clears the label table of all global labels 
remaining from prior blocks. It should be used with caution, 
because it is capable of obliterating communication with 
prior blocks. Like DELETE, ERASE should occur in the block 
prior to any legitimately labeled instruction— in this case 
because any labels which appeared ahead of it would also be 
wiped out. 

w* SAVE is really a conditioning instruction, but 
is concerned only with the label table. It Instructs the 
assembler to make a copy of the label table (including local 
labels) as it appears just prior to the execution of pass 2 
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of the assembler. The last label table saved Is available 
to the programmer at execution time of his own program. 
The table is on the drum at band 1, position 3, from location 
1 through n. Band 1, position 3, location contains n in 
both the left and right address fields of the word. 

*** RESTORE is executed whenever it occurs. It re- 
stores the last saved copy of the label table and wipes out 
any existing label table. Note then that a RESTORE without 
a SAVE in a prior block is the same as an ERASE. Also note 
that since all labels are saved, that the RESTORE allows 
reference to the local labels of the prior block. There 
exists some danger of creating ambiguities this way - so let 
the programmer beware. 

The other action instructions specify specific tasks 
for the assembler. 

**# ktftAD informs the assembler that the immediately fol- 
lowing cards are binaries (possibly produced by the assembler) 
to be loaded unmodified. Any global labels associated with 
the deck (produced by the assembler) are added to the label 
table. The program deck is in style D binaries. The format 
for a binary label card is a negative 9's row left, a blank 
9's row right and labels (in BDT internal form) in sucessive 
words until either there are no more or the card is full. 
There may be as many label cards as are needed with a binary 
deck. Reading is terminated by a card with a blank 9's row 
and control returns to pass 1 of the assembler to continue 
reading "symbolic" instructions. The location counter is not 
affected by the L<1>AD instructions. 
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*** L^ADB_is exactly like ixJ)AD except that the pro- 
gram deck is assumed to be in style B absolute binaries. 
All other things are the same. Style B binaries are 
produced by the various versions of the J100 assembler, 
the latest of which is J224. 

*** L(|)ADF ls > again, exactly like L(j)AD, except that 
it expects the program deck to be in style F binaries. 
Style F binaries are produced by J267. 

The above three instructions permit previously 
assembled routines to be loaded with a symbolic program. 
Unfortunately, the routines are in absolute and cannot 
be re-arranged in storage. 

*## ST( fr p informs the assembler to terminate activity 
now. It causes a program stop with NIA equal to I751. 
In order to complete the assembly of a block, then, the 
ST(J)P must occur after the END for the block. Any in- 
structions occurring after the ST<J)P will not be read, and 
any instructions in the same block read prior to the 
ST<j)P will not be assembled. 

*** £& carries the same conditions of location as 
ST(j)P. It tells the assembler to load the assembled pro- 
gram (from the drum to core) and execute it beginning 
with the left instruction at the location specified by 
the right address (which may be any legitimate address). 
If any errors have been detected during any part of the 
assembly, the program will not be loaded, the message 
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"ERRdJRS PREVENT EXECUTION" will be printed, and the computer 
will stop. 

**# 0^0^ is th e imperative form of G<b which says to 
ignore any errors and attempt the execution anyway. 

### TRANCARD A produces a binary transfer and com- 
patibility with all style D loaders containing the instruc- 
tion of the right operation and the address in the right 
address (which may be any legitimate address). This in- 
struction should normally appear prior to the G<t> or ST<!)P 
but outside the END of the last block. 

*** START ar *d *** FINISH are in essence a pair of 
pseudo-brackets used to surround a block of "symbolic" 
code to indicate that all those lines included should be 
output as a J'AM'D deck. One should not include any of the 
*** pseudo-ops or SET instructions with other than addresses 
relative to the current value of the location counter ($ 
_ numeric constant). 

J'AM'D Decks 

The J'AM'D deck produced by the START - FINISH pair 
of instructions retains its full "symbolic" flexibility 
having as its primary advantage compactness thus saving 
card reading time. A J'AM'D deck cannot be modified. 

A J'AM'D deck consists of up to three parts; the first 
and second parts do not necessarily appear. Each part is 
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preceded by an identification card* with the identifier 
contained in the 9's row left in the BCD. The first part 
(if present) is the EQU's. The 9's row left contains the 
word "EQU's" and the 9 right word contains the count in 
both left and right address. Succeeding cards contain the 
EQU's. The next part contains levels; the identification 
card contains "LABELS" and a word count and is followed by 
a deck of labels contained in the text. The last part 
consists of the text which was enclosed in the pseudo- 
brackets. The identifier is "TEXT" without the double 
word count. The text is punched in BCI with trailing blanks 
eliminated from each line but including comments. An ex- 
tra word containing all l's is added at the end of the text 
for identification. An extra card is punched at the end 
with the BCI word "TH'END" and a single word count in 9's 
right address . 

When a J'AM'D deck is punched, it precedes the label 
and style D binary decks punched for the block in which the 
request is made. Note that more than one J'AM'D deck may 
be produced within one block. Also note that it is up to 
the user to separate out the J'AM'D decks from the label 
and style D binary decks produced from a program before 
attempting to reload any of the decks . 

«.»» READ is the pseudo-op which must precede each 
J'AM'D deck when it is to be read in place of the symbolic 



Identification cards are coded with punches in the 9's 
row of cols 1,2,3. 
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binaries from which it -was produced. J'AM'D decks and 
symbolic decks may be combined and intermixed — the only 
restriction being that each J'AM'D deck be preceded by a 
***READ card. Remember, there is no way to modify a J'AM'D 
deck. 

Comments 

Comments may be appended to a symbolic program in two 
ways. First, they may be written in the "Comments" field 
to the right of any instruction. Second, they may fill 
the entire line, if column 1 contains an asterisk. The 
assembler ignores all cards that contain an asterisk in 
column 1, and it deletes the comments appearing in column 
31 on from the assembly listing. 

Assembly Listing Format 

When the instruction # „ N<f)LIST has not occurred and 
the instruction ### N0LAEELS occurred, the label map is not 
printed. If a *#* N<|)PUNCH instruction is given, the 
listing appears as a continuous block with double spaces 
surrounding the instructions SET and END. If binaries are 
punched, the assembly listing is blocked (separated by 
blank lines) according to the instructions punched on each 
card. 

A given instruction can be made to begin on a new page 
by placing an asterisk in column 9 of the card — that is be- 
tween the left operation field and the left address field. 
This does not affect the arrangement of the binary deck. 



J315A 

7-20-62 

-18- 

Rev. 2-11-64 



Restrictions and Limitations 



1) The number of lines of code contained in a block 
may vary from 300 to 2000 depending upon the 
density or average line length in six character 
groups . 

2) No block may generate a label table containing 
more than 511 labels , global and local, including 
those retained from prior blocks. 

3) No block may contain more than 100 EQU's. 

The assembled program is assumed to be able to reside 
in the 4096 word core storage of the Johnniac. No check 
is made for the number of lines of code assembled or for 
overlapping routines. On the other hand, there is no 
sacred place in the core storage that the programmer must 
reserve unless he plans to load the absolute program with 
one of the available loaders, which must have its own area 
during the loading process. 

Error Messages 

In every case of an error message the line of code 
being processed when the error is discovered is printed 
to the left of the message. 
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T(j)<j) MANY INSTRUCTIONS - you have more than 1200 
lines of code In the block. The assembler stops 
and the stop is not recoverable. 

T<|)(|) I4ANY LABELS - you have more than 511 labels in 
this block (see Restrictions and Limitations). The 
assembler stops and the stop is not recoverable. 

T(j)(j) MANY EQU's - there are more than 100 EQU's in 
the block. The assembler stops in an unrecoverable 

stop . 

ILLEGAL ### INSTRUCTION - the first five non-blank 
chax-acters of the left address are not a legitimate 
instruction. The instruction is ignored. 

UNDEFINED LABEL - the line of code in which either 
the left or right address refers to a label which 
is not in label table is printed. The aporopriate 
address is set to 0. 

AMBIGUOUS LABEL - a label in the table appears more 
than once, in the Label Field. The label is printed 
with its two defined values. If it occurs more than 
twice the errors are printed in pairs, each with 
this message. No distinction is made between global 
and local labels. 

IMPROPER LABEL - is caused by an EQU with a blank 
label. The assembler stops in an unrecoverable stop. 

N(j)N-EXISTENT OPERATION - is caused by the misspelling 
of a mnemonic op code. The operation is set to zero. 

ILLEGAL RIGHT (|)PERATI<j>N - a pseudo-op has been" put in 
the right operation field - the operation is set to 
zero and the pseudo-op ignored. 

POSSIBLE J 'AC ERR<j)R - the assembler has missed the 
END instruction during pass 2. The assembler stops 
in an unrecoverable stop. 

J'ACASS HAS ERRED - is caused by disagreement in the 
value of the location counter value at the end of 
pass 1 and pass 2 for a block. This is usually 
caused by a coding error. The assembler stops in 
an unrecoverable stop. 
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ERRORS PREVENT EXECUTION - is printed when G<J> is 
given and there has been at least one error. 

IMPROPER DEC, SET Tp - an error in the binary or 
decimal scaling on a DEC results in a result. 

*** FINISH, NO ### START - The pseudo-brackets used 

to identify a bxock of symbolic code from which 

to produce a J'AM'D deck are not properly arranged. 



APPENDIX B 


JOHNNIAC OF 


OCTAL 


MNEMONICS 


000 


NOP 


001 


TLM TNL TML 


002 


TLP TPL 


003 


TLO TFL Td)L 


004 


LDQ LMQ LM 


005 


TRM TNR TMR 


006 


TRP TPR 


007 


TRO TFR T<j)R 


010 


TRL TRA 


Oil 


TIL TL1 


012 


T2L TL2 


013 


T3L TL3 


014 


TRR 


015 


T 1 R TR1 


016 


T2R TR2 


017 


T3R TR3 


020 


CLA LAC LDA RA 


021 


CLS RS 


022 


CAM RAV 


023 


CSM CSV RSV 


024 


ADD A 


025 


SUB S 


026 


ADM AV 


027 


SBM SV 


030 


MPR MR 


031 


MNR 


032 


MPY M 


033 


MPN MN 


034 


MAR MB 


035 


MNB 


036 


MPA MA 


037 


MNA 


040 


DVS OS 


041 


DNS 


044 


DIV D 


045 


DVN DN 


050 


STO ST 


051 


SLO SOL 


052 


SLA SAL 


053 


SLH SHL 


054 


SBA SAB 


055 


SRO SOR 


056 


SRA SAR 


057 


SRH SHR 
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EMONICS FOR 


J'ACASS 


OCTAL 


MNEMONICS 


060 


STQ 




061 


SNQ 




062 


SVQ 




063 


SNV 




064 


AQS 




065 


SQS 




66 


AVS 




067 


SVS 




070 


ARC 


SRC 


071 


CLC 




072 


LRC 




073 


LLC 




074 


ARH 




075 


CLH 




076 


LRH 




077 


LLH 




100 


SEL 




101 


CPY 


C 


104 


DIS 




105 


HUT 




106 


SPA 


EJ 


107 


RCA 




110 


RDD 


RD 


111 


WRD 


WD 


120 


ZAC 


ZTA 


124 


ANA 


AND PI 


125 


NAN 


CAA NI 


126 


AVA 


PMI 


127 


CAV 


NMI 


130 


HTL 




131 


H1L 




132 


H2L 




133 


H3L 




134 


HTR 




135 


H1R 




136 


H2R 




137 


H3R 




140 


WRC 




141 


RDC 




142 


WRR 




143 


RRA 




144 


SRM 




145 


SRN 





J315A 
7-20-62 

-23- 
Rev. 12-11-63 



Appendix C - Hollerith characters and J'ACASS octal equivalents 

Character Octal Character Octal 

blank 00 

60 

1 01 

2 02 

3 03 

4 04 

5 05 

6 06 

7 07 

8 10 

9 11 
A 21 
B 22 

c 23 

D 24 

E 25 

F 26 

G 27 

H 30 

I 31 

J 41 

K 42 

L 43 

M 44 



N 


45 


4 


46 


P 


47 


Q 


50 


R 


51 


S 


62 


T 


63 


U 


64 


V 


65 


w 


66 


X 


67 


Y 


70 


Z 


71 


+ . 


20 


- 


40 


* 


54 


/ 


61 


4 


53 


T 


14 


( 


74 


) 


34 


• 


33 


J 


73 


= 


13 
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